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] 
| 
0001 {C IDENT ('V04-000'), 
900g { + | 
ae sean ones Faas en eg eM eee eens 
5098 e* COPYRIGHT (c) 1978, 1980, 1982, 1984 B e | 
BO08 ** DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
te = ALL RIGHTS RESERVED. * 
® 
0009 ee bg SOFTWARE IS ryRniSHeo UNDER A LICENSE AND MAY BE USED AND COPIED * 
0010 ee Y IN ACCORDANCE WITH THE TERMS OF SUCH LIC ENSE AND WITH THE * 
0011 ae ON NCLUSION OF iy * aeOve serra en NOTICE. THIS SOFT WARE OR ANY Re ® 
pols ee COPIES ae oe vit BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
1 ** OTHER PERSON. O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
Sore . TRANSFERRED. * 
® ® 
0016 ** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0017 ** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
dt a CORPORATION. * 
® 
0020 ** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
O05. ee SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
00 § we ke 
002 ee tt 
oose PARAAAAASALALALALAELELELE EEE EERE SERRE EERE EEE RRR E RARER EERE EERE RRR ERR R ERR E ESAS 
0026 
0027 On 
0028 0 
+5 94 FACILITY: VAX/VMS EDF (EDIT/FDL) UTILITY ne 
0031 ABSTRACT: This facility is used to create, modify, and optimize Or 
O03 FDL specification files. 9 
st 34 ENVIRONMENT: NATIVE/USER MODE bs 
0036 AUTHOR: Ken F. Henderson Jr. Or 
0037 oO 
0038 CREATION DATE: 27-Mar-1981 Ou 
0039 Ou 
0040 MODIFIED BY: 0 
0041 v03-018 JwT0191 Jim renege 2 Aug 1984 oO 
poss Remove knowledge of ERASE_ON_DELETE. a 
0044 v03-017 RRBOO17 Rowland R. Bradley 6 Mar 1984 0 
0045 Disallow ACLs - Commented out ACLS, will support 
Bde8 later. 0 
6028 v03-016 RRBOO09 Rowland R. Bradley 22 Jan 1984 0 
0049 Enhancement for display of # buckets in index, # of 
0031 pages to cache index, and average # key examinations. 8 
¢ v03-015 RRBOO007 Rowland R. Bradley 19 Jan 1984 01 
$02 Fix set analysis file to update the correct data 
boee structure. 
R028 v03-014 KFHOO14 Ken Henderson 10 Sep 1983 
005 Support for named UICs 
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00 
0059 v03-013 crngety Ken Henderson 8 Aug 1983 
0 Bugf ig for FTl. 
Changes for seperate compilation. 


v03=-012 KFHOO12 Ken Henderson 27 Jul 1983 
a calculation of record and bucket 
eads in blocks_in_bucket question. 

Ruged" DEFERRED_WRITE. 


0061 
poeg 
0065 
00s? 
0068 v03-011 KFHOO11 n Henders 27 May 1983 
8068 Mo oii eg one PROCESS tor key. COMP_WANTED, 

0 REC_C ANTED, IDX_COMP_WARTED fo 
0071 force yr ood f fot string datatype. 
bors Also force REC_COMP_WANTED to false 
007 not Key 0. 
0074 
0075 
pare Modified PRE _PROCESS for 
007 EDF S$K_NUMBER KEYS, \EDFSE aerate OPTION. 
0078 Add ASK -KEV ~SiZE KEY_POSITION. 
0079 Add ADD“K erere: KEY to PeeRIPT OPTION. 
0080 Removed “Ebr sk: PELOBAC _COUNT question. 
008 v03-009 KFHOOO9 Ken ~_-¥ sy 14 Apr 1983 
008 Changed max bucketsize to 6 
0084 Adde SET_FUNCTION, GRANULARITY. "PRORPTING, 
0085 JOURNAL ENABLED, and RESPONSES. Modified 
goes eaaiele about DUPLICATES, COMPRESSION_WANTED. 
0088 v03-008 KFHOO08 Ken Henderson 7 Mar 1983 
B88 Changed max bucketsize to és from 127. 

v03-007 KFHO007 Ken Henderson 20 Jan 1983 

sia Fixed REGIS pyepors. in in DESIGN_CYCLE 
009 section of PRE Also removed 


0094 references to BASH sis added 
0095 Depthpoint displays to bucketsize 
0096 question. 


0098 v03-006 KFHOO0S Ken Henderson 22 Nov 1982 
0099 Added support for additional. FILE and 
CONNECT attributes. 


| 
| 
| 

v03-010 KFHOO10 en Henderson 26 Apr 1983 
| 
| 
| 
| 

00 

03 v03-005 KFHOO0S Ken Henderson 8 Sept 1982 

0 Modifed almost all vertebles to fit into 

04 new database scheme of arrays. Also added 

05 QUERY routine to process the QTAB table- 

06 driven Q+As. Also added support ro routines 

0 for QUERY. Also replaced almost ALL the 

oe “ASK xxx" routines with QTAB/QUERY. 

10 

i) 

18 

14 


v03-004 KFHO004 Ken Henderson 19 April 1982 
Modified ASK_BUCKET to correct its 
handling of alternate keys. 


v03-003 KFHOO0O3 Ken Henderson 24-Mar-1982 
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Rodi tig¢ ASK_TEST_SECONDARY_VALUE to fix 
QAR 83 
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So 


v03-002 KFHOO02 Ken Henderson 23-Mar-1982 | 
Modified se eral ‘ASK_' routines to fix 
FT2 QARs 45,746 


v03=-001 KFHOOO1 Ken Henderson 17-Mar-1982 
Modified several ‘ASK_" routines to fix 
FT2 QARs 509,449,574,575 
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MODULE EDFASK (INPUT,OUTPUT); 
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EC 
ve 
} 

0147 { ++ Of 
148 | Of 
193 WRITE_HELP == Routine to output per question help text. 8s 

Bt 1 This procedure cases on qtab-offset to output the help text. 8s 

01 § CALLING SEQUENCE: | 08 

0159 WRITE_HELP; 08 

0137 INPUT PARAMETERS: | f 

8188 none 

0160 

0161 IMPLICIT INPUTS: 

pio¢ 

016 none 

0164 

0165 OUTPUT PARAMETERS: 

0166 

0167 none 

0168 

0169 IMPLICIT OUTPUTS: 

0170 

0171 none 

Big 

017 ROUTINES CALLED: 

0174 

0175 none 

0176 

0177 ROUTINE VALUE: 

0178 

0179 none 

0180 

0181 SIGNALS: 

oss 

018 none 

0184 

0185 SIDE EFFECTS: 

0186 

0187 

0188 -- } 
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PROCEDURE WRITE_HELP; | 
BEGIN 

CASE QTAB_OFFSET OF 
EDFSK_DESIGN_CYCLE : 
WRITELN (SHIFT,*Type the 2 Letter mnemonic of the selected option.'); 
EDFSK_KEY_POSITION : 


WRITELN (SHIFT, 
‘This is the starting byte of the key or key segment.'); 


EDFSK_KEY_DIST : 


cocescesssssssso 
GRURA SSS ESPACE 


rrrrorrrrrr 


WRITELN ( 
SHIFT,’ This refers to records that are added to the',CRLF_SHIFT, 
‘file after it is initially loaded.'); 


| 
EDFSK_KEY_CHANGES : | 
WRITELN (SHIFT,*This enables or disables the RMS option.'); 
EDFSK_KEY_DUPS : 
WRITELN (SHIFT,"This enables or disables the RMS option.'); 
EDFSK_SEGMENTED : 
WRITELN (SHIFT,*Each string key may consist of up to 8 parts.'); 
EDFSK_GLOBAL_WANTED : 
WRITELN ¢ 
SHIFT,*These usually increase the speed of file sharing,’ 
CRLF_SHIFT, ‘at the expense of using more physical memory.'); 
EDFSK_RESPONSES : 
| 


PMOMININININININID 2 1 OOO 
SSONOVE WV OOONAME WoO DS Ie 


WRITELN ¢ 
SHIFT,*Automatic means the default answers will be used without', 
CRLF_SHIFT, ‘waiting for confirmation.'); 

EDFSK_PROMPTING : 


WRITELN (SHIFT,"This controls whether full menus are displayed.'); | 
| 
| 


wn 


ARUN SO 


EDFSK_NUMBER_RECORDS : 
WRITELN (SHIFT,*This will determine the allocation of the file.'); 
EDFSK_ASCENDING_LOAD : 


WRITELN ( 
SHIFT, This refers to the order of the initial records loaded.'); 


0 
0 
0 
0 
0 
0 
0 
0 
0 
02 
0 
0 
0 
02 
02 
02 
02 
02 
0 
0 
0 
02 
02 
02 
02 
0 
0 
s 


0 

0 

05 
09 
05 
09 
05 
05 
0s 
0s 
0s 
05 
05 
05 


RAR GOS IO 


Rofonoforny 


BiH 


AAO 


oO 
mrmrororororoprororfrorsrrrer 
PAEAAANAAAUIVIVIVI ES & 

MEAN —OODONAUES WI O0OOn 


MPP POPEPoPoPofronononofronenord 
Sos: 
on 


SSN NNO 
OvViFwn—ovo 


SV2Sso4 


SOOSOSOSOSOSOSOOOOOSOOSOOSSOSOSSSSOSSSSSCOOSOSOSCSOSOOSCOSOSOOOOOOOOOOOOOOOO 
LSSSLESRASLSESSELETE 


Be 


Source Listing ifose 300-1 ok 99: 38: if DIK SVMSMAST 


EDFSK_INITIAL_COUNT, 
EDFSK_INITIAL_COUNT_LOW, 
EDF SK_INITIAL_COUNT_HIGH 
WRITELN (SHIFT, 
\These are the records initially loaded into the file.’ ,CRLF_SHIFT, 
‘If the file will have no “Load” operation, specify ae 
EDFSK_ADDED_COUNT, 
EDF SK_ADDED_COUNT_LOw, 
EDF $K_ADDED_ COUNT “high : 


WRITELN (SHIFT, 
‘These are the records added after the initial file load.'); 


EDFSK_BLOCK_SPAN : 


WRITELN ( 
SHIFT,"If no, each record plus overhead must fit in a disk block,’ ° 
CRLF _SHIFT, ‘Also, some space may be wasted at the ond of blocks.'); 


EDF SK LOW, 
EDF $K KTKEY “hich, 
EDFSK_KEY_SIZE : 


ere (SHIFT,*This is the length of the key (segment) in bytes.', 
rwith multi-segment keys, answer ‘'0'’ after the last segment.)'); 


EDF SK_PROLOGUE_VERSION : 


WRITELN (SHIFT, 
CRUSHER. to the structure Level of the data file.' ° 
"A value of 0 Lets RMS choose an appropriate prolog.'); 


EDF SK_KEY_COMP =VANTED. 
EDF $K_REC_COMP_WANTED, 
EDFSK_IDX_~COMP_WANTED : 
WRITELN (SHIFT, 
hep tal Analyze/RMS indicates Little compression is acheived’, 
a ge = ll No, otherwise it is usually better to answer Yes.'); 
EDFSK_CLUSTER_SIZE : 


WRITELN (SHIFT, 
"SHOW DEVICE/FULL can be used to determine this value.'); 


EDFSK_ASCENDING_ADDED : 


WRITELN (SHIFT, 
"This refers to the orderring of additional records.'); 


EDF$K_BLOCKS_IN_BUCKET : 
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BEGIN 
If WAIT_HELP THEN 


WRITELN (SHIFT 
"Legal types: Bin2 Bind Bin8 Int2 Int4 Int8 Decimal String’) 


ELSE 


| 
WRITELN (SHIFT, 
hopes, conse is 1 to 63 blocks per bucket, and buckets must’, 
Se Targe enough to hold at least 1 record plus overhead.'); | 
4 19 EDFSK_BUCKET_WEIGHT : 
0312 WRITELN (SHIFT, | 
i enet ier perverse less memory and RMS processing used’, 
0 YF "Flatter_Files: fewer actual disk accesses needed'); 
8 " EDFSK_LOAD_METHOD : 
: i IF WAIT_HELP THEN 
0321 WRITELN (SHIFT, 
oe § ‘Legal values: Fast_Convert, NoFast_Convert, RMS_Puts') | 
03 ¢ ELSE 
$856 WRITELN (SHIFT, 
os peat Convert: using the VAX-11 Convert/Fast_Load option’, 
03 9 enor est Convert: using the VAX-11 Convert/NoFast_Load option’, 
OF 1 “ MS~Puts:— writing to a file from a High Level Language'); 
03 ; EDFSK_FILL_LOW, 
03 EDF SK_FILL_HIGH 
0$ 5 EDFSK-DESIRED_FILL : 
0337 WRITELN (SHIFT,*This is the initial file loading fill factor.'); 
0339 EDFSK_KEY_TYPE : 


Were 
SOBNONR UN =O 


F_SHIFT, 
“ types for unsigned binary keys of 2, 4 or 8 bytes.',. 


SOoooococecocoooo 


tx*’ types for signed binary key of 2, 4 or 8 bytes,', 


SHIFT 


HIFT, 
tinal type for packed decimal key of 1 to 16 bytes,', 
Ting’ type for character string key of 1 to 255 bytes."); 
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END; { EDFSK_KEY_TYPE } 
EDFSK_RECORD_FORMAT : 


WRITELN ( 
SHIFT,"Indexed files are only Fixed or Variable.',CRLF_SHIFT, | 
"Stream format (Seq only) is Stream, Stream_CR, or Stream_LF.'); 


EDFSK_ACTIVE_KEY : 
WRITELN (SHIFT,*Select an already defined key.'); 


EDFSK_NUMBER_KEYS : 

WRITELN (SHIFT,"An Indexed file can have from 1 to 255 keys."); 
EDFSK_CONTROL_SIZE : 

WRITELN (SHIFT,'This refers to the Fixed portion of the record.'); 


SIs te 
DONOUVIS WN "O”O 


381 EDFSK_SIZE_LOW, 
386 EDFSK_SIZE_HIGH, 
ts EDFSK_MEAN_RECORD_SIZE : 
385 WRITELN (SHIFT,'*This refers to the records in the data file.'); 
O389 EDFSK_MAX_RECORD_SIZE : 
0388 
oee2 BEGIN 
03 WRITELN (SHIFT, 
os ‘This sets the longest record that can be stored in the file.'); 
93 IF IDATACEDFSK_SCRIPT_OPTION] <> EDFSK_REL_DESIGN_FDL THEN 
03 WRITELN (SHIFT ; 
03 "A maximum of 6 will set no explicit maximum.'); 
$3 END; { EDFSK_MAX_RECORD_SIZE } 


EDFSK_CARR_CTRL : 
WRITELN (SHIFT,*This sets the Record attributes of the file.'); 
OTHERWISE 
{ NULL=STATEMENT } ; 
END; { CASE ) | 


FREE 


SELEARENVLSSSLSESRANLS 


IF ( 
(WAIT_HELP) 

AN 

(NOT AUTO_TUNE) 
) THEN 


a ee ee a oe 
NOU EWI —O 


LIBSWAIT (3.0); | 
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END; 
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1 { +¢ } 

§ WRITE QUESTION == Routine to output the question text. | : 

5 This procedure cases on the qtab-offset and outputs the correct string. ; 

? CALLING SEQUENCE: } 

2 WRITE QUESTION; , 

1 INPUT PARAMETERS: : 

| none : 
0435 IMPLICIT INPUTS: 1 
04 1 
Se i none ; 
0439 OUTPUT PARAMETERS: 1 
0440 1 
0441 none 1 
Bees 1 
arer IMPLICIT OUTPUTS: } 
45 none 1 
044 1 
044 ROUTINES CALLED: 1 
0448 1 
0449 none 1 
0450 1 
0451 ROUTINE VALUE: 1 
Bees 1 
045 none 1 
Bee 1 
55 SIGNALS: 1 
0628 1 
045 none 1 
Bee8 1 
bh) SIDE EFFECTS: 1 
0460 1 
0461 1 
0462 -- } : 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
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PROCEDURE WRITE_QUESTION; : : 
BEGIN 
CASE QTAB_OFFSET OF 
EDFSK_INITIAL_COUNT_LOW : 


WRITE (SHIFT 
"Low bound: initial Load of Recs (0-1Giga) C0) : "D3 


"DFSK_INITIAL_COUNT_HIGH : 
EGIN 
WRITE (SHIFT, "High bound: 


Initia 
IDATACEDFSK_Y_LOW]:NUM_LENCIDATA 
*-1Giga)C' BEF :NUM_LENTDEF),'J') 


FRELLLLEL 
ANI SSSISEAF 


t Load of Recs(', 
EDFSK_Y_LOWJ), 


] 
| 
| 
| 
| 
| 

IF (NUM_LENCIDATACEDFSK_Y_LOW])+NUM_LEN(DEF)) <= 3 THEN 

WRITE (* : ") 

ELSE 

WRITE (* : '); 

END; { EDFSK_INITIAL_COUNT_HIGH } 
| 
| 
} 
| 


RELLLLRLLRLLLLEKKK 
SSSLEARAN AS Sao 


0491 
ed] 
049 EDFSK_ADDED_COUNT_LOW : 
0494 
0495 BEGIN 
0496 
0497 WRITE (SHIFT, 
ots ‘Low bound: Number of Added Recs (0-1Giga) (0) : "); 
Bane END; { EDFSK_ADDED_COUNT_LOW } 
9908 EDFSK_ADDED_COUNT_HIGH : 
0305 BEGIN 
208 WRITE ‘SHIFT,*High bound: Number of Added Recs(', 


IDATACEDF $k, ¥_ LOW)]:NUM_LEN(IDATACEDFSK_Y_LOW)), 
-1Giga)C' ,DEF :NUM_LENTDEF),")'); 


IF (NUM_LEN(IDATACEDFSK_Y_LOW])+NUM_LEN(DEF)) <= 3 THEN 
WRITE (* >") 
ELSE 
WRITE (" : "); 
END;  € EDF$K_ADDED_COUNT_HIGH } 
EDFSK_KEY_LOW : 


SQOQooooCcooooooo 
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WRITE (SHIFT. "Low b Key’, 
JDATACEDF SK, Active. REvd:3e 7 


MAX XReY. SIZE:NUM_LEN(MAX_KEY_SIZE),")C1] : '); 
EDFSK_KEY_HIGH : 
WRITE (SHIFT, "Hi 
[BATACeDEs- ACT 
YL 
Ag 
MAX “KEY -Sire: NUM 
EDFSK_SIZE_LOW : 
BEGIN 


WRITE (SHIFT ‘Low pound: Record Size (1-', 
CUR_MAX_REC:5,")C1] : '); 


END;  { EDFSK_SIZE_LOW } 
EDF$K_SIZE_HIGH : 
BEGIN 
WRITE (SHIFT, (tog) Ron bound: ord Size g. 
IDATACEDF $K_ TACEDFS$K_Y_LOW]), "=", 
CUR_MAX_REC?5 mathe 
IF a sintniaenterek it cost < 3 THEN 
WRITE (* >") 
ELSE 
WRITE (° : °); 
END;  { EDFSK_SIZE_HIGH } 
EDFSK_FILL_LOW : 
WRITE (SHIFT,*Low bound: Key’, 
JDATALEDE $k. Active KEY :3 
-160)(50] =: "); 
EDFSK_FILL_HIGH : 
WRITE (SHIFT, "High pound: Key’, 
JDATACEDE $K_ Acti E_K EY):3 
mS 160)C1003 =: '); 
EDFSK_SCRIPT_OPTION : 
BEGIN 
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Fs 
s* 


CLEAR (IF _FULL_PROMPT); 


SISOS 


{ + 

Show the menu only if we're being verbose. 
IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 
BEGIN 


LEAEAN=ZS Sos 


{ + 
Put the title out in reverse video. 


020000 
ele) 


PUPP 


8 90 WRITELN ( 

94 SHIFT, P 

0898 ANSI_REVERSE 

0594 * Script Title Selection ', 

0595 ANSI_RESET, 

0596 RLF, 

0597 CRLF _SHIFT, 

0598 *Add_Key modeling and addition of a new index'’s parameters’, 
0599 CRLF _SHIFT, 


*Delete_Key removal of the highest index''s parameters’, 


"Indexed cae ore of parameters for an entire Indexed file’, 
‘Optimize bun ing of all indices’ parameters using file statistics’, 
CRLF _SHIFT 


"Relative selection of parameters for a Relative file’, 
"Sequential selection of parameters for a Sequential file’, 
*Touchup omen remodeling of parameters for a particular index’, 
END 
ELSE 
WRITELN (SHIFT, 
"(Add hoy Delete_Key Indexed Optimize’, 
CRLF _SHIFT, 
* ReTative Sequential Touchup)'); 
{ + 
Pop the question. 


WRITE Csnie le belting series Title (Keyword)', 
ANSI_REVERSE,*C-]* ,ANSI_RESET,' 2 *) 


END; € EDFSK_SCRIPT_OPTION } 
EDFSK_RETURN : 


WRITE (CRLF SHIFT, ANSI_REVERSE ,CONTINUE_TEXT, 
ANSI_RESET,* ) 


SSSESS eRe rer eee cece cece Te eee eeeeee 


at at a a oo 
FUSS SeNOUe Un SOMNOnR WO on 


N 
Source Listing eet a ot RASTER: EEDF SRCJEDFASK.PAS: 1 


| 
| 
} 
| 
| 
} 
| 


E 
\ 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


9 
; Source Listing 1G-Se0-1984 99:38:93 ST KSUNGMASTERY EDF -SRCIJEDFASK.PAS; 1° 285 - 
EDFSK_DESIGN_CYCLE : 
eerre wr “FD'' to Finish Design)’, 
"whith File Parameter (Mnemonic) Crefresh] a "Dy 
EDF$K_CURRENT_FUNCTION : 
BEGIN 
CLEAR (SCREEN); 


mn 
a3 
‘> 
3 
<m 
oo 


{ + 
Only show the menu if we're being verbose. 
IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 
BEGIN 
{ + 
Show the header in reverse video, and then the 
rest of the menu. 
WRITELN ( 
SHIFT, 
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ANSI REVERSE, b | 
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EDF _READER, 
ANST_RESET, 
RLF, 
CRLF _SHIFT, 
"Add to insert one or more Lines into the FDL definition’, 
CRLF _SHIFT, 
"Delete to remove one or more Lines from the FDL definition’, 
CRLF _SHIFT, 
"Exit to leave the FDL Editor after creating the FDL file’, 
067 CRLF _SHIFT, 
a4 : lear to obtain information about the FDL Editor’, 
pore tnwene if to initiate a script of related questions’, 
pore weet . a to change existing Line(s) in the FDL definition’, 
79 ‘Quit ~ to abort the FDL Editor with no FDL file creation’, 
CRLF_SHIFT, 
068 ’ to specify FDL Editor characteristics’, 
bees CRLF_SHIFT, 
‘View to display the current FOL Definition’, 
¢ CRLF); 
END { IF TRUE FULL_PROMPT OR TEMP_FULL_PROMPT } 
Oss ELSE 
9690 WRITELN (SHIFT, 
91 "(Add Delete Exit Help Invoke Modify Quit Set View)"); 
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14 
O63 *. 14 
0694 4: the question. 14 
95 - 
RITE (SHIFT, jes 14 
p63s wRas Editor Function (Keyword)CHelp] : '); 14 
98 END; {€ EDFSK_CURRENT_FUNCTION } 14 
404 EDFSK_RESPONSES : 14 
0704 BEGIN 14 
(SHIFT,* (Automatic Manual)’, CRLF _SHIFT 
O709 “Detoutt responses in scripts (kéywordSCAuto] : '); a 
0708 14 
0709 END; 14 
0710 1G 
0711 EDFSK_PROMPTING : 16 
ak BEGIN 14 
ar ete tcaire * carver Full)"); 14 
OFi$ Sprenekten level for menus (Keyword) CFull] : '); 16 
0718 14 
0719 END; 14 
0720 16 
0721 EDFSK_KEY_POSITION : 16 
| 
0758 BEGIN i 
orse WRITE (SHIFT, *Key', IDATACEDFSK_ACTIVE_KEY]:3, 1a 
0726 * Position "Ds 14 
| 
0756 IF BDATACEDFSK_SEGMENTED) THEN 14 
$780 WRITE ('SEG',SEGMENT_NUMBER: 1); 16 
0731 : 
; (Q-", a ‘ 
or 38 MAX_KEY_POSITION:NUM_LEN(MAX_KEY POSITION) C03 : "D3 14 
0735 END; { EDFSK_KEY_POSITION } 14 
‘ 7 EDFSK_KEY_DIST : 16 
is sin i 
et RITELN (SHIFT t 
toe OIL Added Records be Distributed Evenly over the’); i 
4| 
ote IF NOT OPTIMIZING THEN 14 
si WRITE (SHIFT, Initial") 1% 
4 
rtB ELSE 


’ 9 | 
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9 WRITE (SHIFT, Reloaded"); 
f ¢ WRITE (* Range of Pri Key Values"); | 
OF ¢ IF NOT OPTIMIZING THEN 
07 WRITE (TAB); 
1634 es/No) (No s "by 


END; { EDFSK_KEY_DIST } 


WRITE (SHIFT ek ee ee KEY):3, 
* Changes allowed (Yés/No)(Yes)] : '); 


sesesss 
SLFELES 


PVD PV PVPV PU IVIU DUIS SUSU SUSUSUSUSISI SESE OO 


E 
Vv 
1 
1 
1 
1 
1 
1 
1 
1 
| 1 
1 
1 
| | } 
EDFSK_KEY_CHANGES : : 
1 
i 
0767 EDFSK_KEY_DUPS : 1 
0768 hoe 1 
0769 BEGIN 1 
0770 1 
0771 WRITE (SHIFT, Key’, IDATACEDFSK_ACTIVE_KEY]:3, 1 
orre * Duplicates allowed (Yés/No)C*); 1 
077 1 
0774 { + 1 
446) ~ default for the primary key is NO, for alternates YES. : 
444g IF IDATACEDFSK_ACTIVE_KEY] = 0 THEN | } 
0779 WRITE ('No) : *) | 1 
0780 1 
0781 ELSE 1 
078 1 
078 WRITE (Yes) y “he 1 
ores END { EDFSK_KEY_DUPS } i 
0786 : eae 1 
0787 EDFSK_SEGMENTED : 1 
0788 1 
fh 4 WRITE (SHIFT 1 
790 "Key’, IDATACEDFSK_ACTIVE_KEY]:3, | 1 
fad * Segmentation desired (Yes/No) (No) “a : 
Ores EDFSK_GLOBAL_WANTED : ' 
b798 WRITE (SHIFT, | 1 
a: ‘Global Buffers desired (Yes/No) [No] : “by : 
798 EDFSK_NUMBER_RECORDS : | 1 
WRITE (SHIFT, "File Ca acity in Records (0-1Giga)', 
ip ANSI _REVERSE,*C-J" ,ANSI_RESET,' : "he 
Bos EDFSK_INITIAL_COUNT : 


5 BEGIN 
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0806 | 
peo” IF NOT OPTIMIZING THEN | 
0809 WRITELN (SHIFT, 
Bary "Number of Records that will be Initially Loaded’) 
oetg ELSE 
bale WRITELN (SHIFT,"Number of Records that will be Reloaded'); | 
0816 WRITE (SHIFT,"into the File',' (0-1Giga)"); | 
ogi8 IF NOT OPTIMIZING THEN | 
0820 WRITE (ANSI_REVERSE,"C=",ANSI_RESET," : °) | 
poss ELSE 
082 
0824 BEGIN 
0825 
08 g WRITE (°C",OLD_COUNT:NUM_LEN(OLD_COUNT),'J"); 
O8e8 IF NUM_LEN(OLD_COUNT) > 4 THEN 
0830 WRITE (* : ") 
0832 ELSE | 
oB38 | 
0834 WRITE (° : "); 
0835 | 
0836 END; 
0837 
sted END; { EDFSK_INITIAL_COUNT } 
0840 EDFSK_LOAD_METHOD : 
0841 
0842 BEGIN | 
Sere WRITELN (SHIFT,*(Fast_Convert NoFast_Convert RMS_Puts)'); | 
0846 IF NOT OPTIMIZING THEN 
Oe9 WRITE (SHIFT,"Initial File Load Method ‘) | 

50 ELSE 

0851 | 
0036 WRITE (SHIFT,"File Reloading Method "3 
0894 WRITE (* (Keyword) (Fast) 2"); 

0856 END; { EDFSK_LOAD_METHOD } 

0836 EDFSK_ASCENDING_LOAD : 

360 BEGIN | 
OBe2 IF NOT OPTIMIZING THEN 


, | 


F 
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0863 | 1! 
pees WRITELN (SHIFT 1! 
5 "Will Initial Records Typically be Loaded in Order’) i 
i 
0869 WRITELN (SHIFT, 1 
TA ‘Will the Records be Reloaded Typically in Order'); 1 
087 WRITE (SHIFT, 1! 
14 ‘by Ascending Primary Key (Yes/No)CNo] : °); | 1, 
0875 END;  { EDFSK_ASCENDING_LOAD } | iF 
0877 EDFSK_ADDED_COUNT : | a 
$3 = i 
0881 WRITELN (SHIFT | 1 
Sas "Number of Additional Records to be Added After"); | } 
0884 IF NOT OPTIMIZING THEN | f 
pane WRITE (SHIFT,‘the Initial File Load") | + 
Bees ELSE 1¢ 
| 
0890 WRITE (SHIFT,'the Reloading the File’); 
One WRITE (° (0-1Giga) (0) t "by | 
0894 END; {€ EDFSK_ADDED_COUNT } 
+344 EDFSK_KEY_COMP_WANTED : 
0898 WRITE (SHIFT, | 
344 ‘Data Key Compression desired (Yes/No)CYes) : '); 
9901 EDFSK_REC_COMP_WANTED : | 
WRITE (SHIFT, 
‘Data Record Compression desired (Yes/No)CYes] : '); 


i803 


EDFS$K_IDX_COMP_WANTED : 


WRITE (SHIFT, 
"Index Compression desired (Yes/No)(CYes) o "De | 


EDFSK_CLUSTER_SIZE : 


WRITE (SHIFT, - 
‘Target disk volume Cluster Size (1-1Giga) (3) e "De | 


EDF$K_BLOCK_SPAN : 


WRITE (SHIFT, 
"Records can span disk blocks (Yes/No) CYes] ¢ "Ds 


33 
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| 
0920 
88 1 EDFSK_ASCENDING_ADDED : 
9 g WRITE (SHIFT, | 
4 ‘WiLL Additional Records Typically be Added in',CRLF_SHIFT, 
84 5 ‘Order by Ascending Primary Key (Yes/No) LNod : "32 
45 ? EDFSK_PROLOGUE_VERSION : 
0929 WRITE (SHIFT, 
2 9 ‘File Prolog Version (0-3)C3) e "Ry 
09 EDFSK_KEY_SIZE : 
34 : BEGIN 
O938 WRITE (SHIFT, *Key', IDATACEDFSK_ACTIVE_KEY]:3, 
4334 * Length ")3 
3444 IF BDATACEDFSK_SEGMENTED] THEN 
Bods WRITE ("SEG',SEGMENT_NUMBER:1); 
Pk WRITE (° (* ,MIN_KEY_SIZE:NUM_LEN(MIN_KEY_SIZE),'='", 
0944 MAX_KEY SIZE: LEN(MAX KEY SIZE),")', 
Boe? ANST_REVERSE, 'C-J' ,ANSI_RESET,' : "Ds 
sf 4 END; { EDFSK_KEY_SIZE } 
0949 EDF$K_BLOCKS_IN_BUCKET : 
0950 
0951 BEGIN 
3336 
tar WRITE (SHIFT,*Emphasis Used In Defining Default: q "de 
0955 IF IDATACEDFSK_BUCKET_WEIGHT] = EDFSK_SMALLER_BUFFERS THEN 
0957 WRITELN (* Smaller_buffers )*) 
0958 
0959 ELSE 
0960 
0961 WRITELN (' Flatter_files )*); 
$968 WRITELN (SHIFT,*Suggested Bucket Sizes: . | 
0964 BREAKPOINT _LEFT:6 
5 BREAKPOINT-M1D:6,@REAKPOINT_RIGHT:6,° )"); 
0967 WRITELN (SHIFT,*Number of Levels in Index: t*, | 
0968 DEPTHPOINT _LEFT:6 
0970 DEPTHPOINT-M1D:6,DEPTHPOINT_RIGHT:6,° »* ds 
71 WRITELN (SHIFT,*Number of Buckets in Index: ¢ *. 
re NUMPOINT_LEFT:6, 
975 NUMPOINT“MID:6,NUMPOINT_RIGHT:6," )"); 
75 WRITELN (SHIFT,*Pages Required to Cache Index: [*, 
0976 PAGEPOINT_LEFT:6, 
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PAGEPOINT_MID:6,PAGEPOINT_RIGHT:6,° )'); 


WRITELN (SHIFT,'Processing Used to Search Index: ' 
EXAMPOINT_LEFT:6 
EXAMPOINT-M1D:6,EXAMPOINT_RIGHT:6," )"); 


WRITE (CRLF SHIFT, "Key®, 

IDATACEDF Sk-ACTIVE_KEY):3, 

1 bucket Size (* MIN BUCKET :NUM_LEN(MIN_BUCKET), 
QTABLOTAB_OFFSET.DEFAULT :NUM_LEN(QTABLQTAB_OFFSET].DEFAULT), 


END;  { EDFSK_BLOCKS_IN_BUCKET } 
EDFSK_BUCKET_WEIGHT : 
BEGIN 


WRITE (SHIFT,'(Smaller_Buffers Flatter_Files)', 
CRLF_SHIFT, Emphasis for Default Bucket_Size(Keyword)('); 


IF QTABLOTAB_OFFSETJ.DEFAULT = EDFSK_FLATTER_FILES THEN 
WRITE ("Flat] =: ') 
ELSE 
WRITE ("Small) : "); 
END; { EDFSK_BUCKET_WEIGHT } 
EDFSK_DESIRED_FILL : 


WRITE (SHIFT, 'Key’, IDATACED 
* Load Fill Percent (50-100 


EDFSK_CONFIRM : 


WRITE (SHIFT, 
"Replace this existing secondary (Yes/No) CNo] 2 "Ds 


EDFSK_DATA_FILE_NAME : 
WRITE (SHIFT 
"Data File file-spec 
CRLF_SHIFT,': °); 
EDFSK_ANALYSIS : 


WRITE (SHIFT,*Analysis File file-spec (1-126 chars)Cnull)', 
CRLF_SHIFT,*: '); 


EDFSK_OUTPUT : 


WRITE (SHIFT, 
‘Output File file-spec 


FSK_ACTIVE_KEY):3, 
(100) 37"); 


(1-126 chars)Cnull)', 


(1-126 chars)Cnull)', 


cal Hep A Pegs 
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; CRLF_SHIFT,": "); 3 | 
EDFSK_FDL_TITLE : | 
WRITE (SHIFT, | 

‘Text for FDL Title Section (1-126 chars)Cnull]', 
CRLF_SHIFT,": '); | 

EDFSK_KEY_NAME : 


WRITE (SHIFT, Key’, IDATACEDFSK_ACTIVE_KEY]:3 
: Nene (1-3 chats)Cnul(}",CRLF_SHIFT, 
EDFSK_KEY_TYPE : 
BEGIN 
WRITE (SHIFT,*(Bin2 Bind Bin8 Int2 Int4 Int8 Decimal String)’, 
CRLF _SHIFT, Key’, IDATACEDFSK_ACTIVE_KEY):3, 
* Data Type (Keyword)C(StrJ ~: '); 
END;  { EDFSK_KEY_TYPE } 
| 
| 
| 
| 
} 


EDFSK_ACTIVE_KEY : 


ce se 
W_KEY),'=",HIGH_KEY:NUM_LEN(HIGH_KEY) 
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WRITE se Lentl of Referen 
LOW gg :NUM_LEN(LO 
.' TO : "); 
064 EDFSK_NUMBER_KEYS : 
065 
oce BEGIN 
068 WRITE (SHIFT,*Number of Keys to Define (1-255)C', 
069 QTABLOTAB_OFFSETJ.DEFAULT: UM_LEN(QTABCQTAB_OFFSETJ.DEFAULT), 
071 aiesod 
O78 END; 
07 
074 EDFSK_CARR_CTRL : 
075 
ore BEGIN 
$78 WRITE (SHIFT,'(Carriage_Return FORTRAN None Print)’, 
ha CRLF_SHIFT, ‘Carriage ontrol (Keyword)(Carr] : '); 


END;  { EDFSK_CARR_CTRL } 
EDFSK_RECORD_FORMAT : 
BEGIN 

CASE IDATACEDFSK_SCRIPT_OPTION] OF 


EDF $K_ADD_KEY FDL 
EDF $K-DELETE_REY 


Cooooooo 
SeeSeer= 
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EOF 
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1091 EDF $K REDESIGN. FDL, 
09¢ EDFSK-OPTIMIZE-FDL 
09 EDFSK-IDX_DESIGN_FOL : WRITELN (SHIFT, ‘(Fixed variable)"); 
094 EDFSK-REL-DESIGN-FDL : WRITELN (SHIFT,'(Fixes Variable VFC)"); 
095 EDFSK~SEQ DESIGN FDL : WRITELN (SHIFT, 
O36 *TFixed Stream _CR _LF Undefined Variable VFC)'); 
098 OTHERWISE 
099 
{ NULL=STATEMENT } ; 
WRITE (SHIFT, 
‘Record Format (Keyword)(Var] : '); 


END; € EDFSK_RECORD_FORMAT } 
EDFSK_CONTROL_SIZE : 


WRITE (SHIFT,*Control Field Size (i-', 
CUR_MAX_F IXED:NUM_LEN(CUR_MAX_FIXED),")(2] : '); 


EDFSK_MEAN_RECORD_SIZE : 
BEGIN 

WRITE (SHIFT); 

IF VARIABLE_RECORDS THEN 

WRITE ("Mean ‘); 

WRITE ("Record Size"); 

IF IDATACEDFSK_RECORD_FORMAT] = FDLSC_VFC THEN 
| 


| 
| 
| 
END; { CASE } 


WRITE (° w/fix"); 
IF NOT VARIABLE_RECORDS THEN 
WRITE (TAB); 


WRITE (' (1+! 
CUR_MAX REC :NUM_LEN(CUR_AAX REC),")", 
ANST_REVERSE, "(=)" ,ANSI-RESET, ' : 

END;  { EDFSK_MEAN_RECORD_SIZE } | 

EDFSK_SURFACE_OPTION : 


BEGIN 
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{ + 
See which surface. 
CLEAR (CIF _FULL_PROMPT); 
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| 
IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 
BEGIN 
HH ( 
SHIFT ‘ 


ANSI -REVERSE ‘ 
df? Tag ipAtACeorsn. ACTIVE_KEY]:3,° Graph Type Selection ', 


5 
5 
CRLF “SHIFT, 
"Line Buckée t Size vs Index Depth as a 2 dimensional plot’, 
"FILL Suck ée ie vs Load Fill Percent vs Index Depth’, 
"Key Bucket Size Key Length vs Index Depth' 


IF IDATACEDFSK_ACTIVE_KEY] = 0 THEN 
BEGIN 
WRITELN (SHIFT, 
cnegors pycket Size vs Record Size vs Index Depth’, | 
CRLF SH Bucket Size vs Initial Load Record Count vs Index Depth’, | 
‘add Bucket Size vs Additional Record Count vs Index Depth’); 
END; 
WRITELN; 
END 
ELSE 
BEGIN 
WRITE (SHIFT,"(Line Fill Key"); 
IF IDATACEDFSK_ACTIVE_KEY] = 0 THEN 
WRITE (* Record Init Add)') 
ELSE 
WRITE (°)"); 
WRITELN; 
END; { IF FULL_PROMPT OR TEMP_FULL_PROMPT } 
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Always ask the question, even for brief prompting. 
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WRITE (SHIFT,*Graph type to display (Keyword)('); 
58 CASE QTABCQTAB_OFFSET].DEFAULT OF 
10 EDFSK_LINE_SURFACE : WRITE } : 
11 EDFSK_FILL_ SURFACE : WRITE he 
\¢ EDFSK_KEY SURFACE : WRITE ‘3 
1 EDFSK_-SIZE_SURFACE : WRITE : 
14 EDFSK_INIT SURFACE : WRITE 
15 EDFSK-ADDEB_SURFACE : WRITE 
7 OTHERWISE 
19 { NULL=STATEMENT } ; 

END; { CASE } 

END; { EDFSK_SURFACE_OPTION } 


EDFSK_GRANULARITY : 
BEGIN 


{ + 

See what level of granularity. 
CLEAR (IF_FULL_PROMPT); 

IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 
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i BEGIN 

37 

38 WRITELN ( 

39 SHIFT, 

40 5 .. 

41 ANSI_REVERSE 

¢g * Area Granularity Selection ', 

$7 ANSI_RESET); 

45 IF DEC_CRT THEN 

af BEGIN 

rh 7 : anes WRITELN (CRLF ,LOW SH FT, ; , 

39 (27)°)0 ey GReet eee, (1 (14) * Laqqqqqqaqaqagk*(15)° *(14) * Laqqqqqqaqqaqagk * (15) ° *(14)'Llq 

352 "0 "(16)"x" (15) ake? 0 Sata, 8614) 8x (15)! O *(14)'x"(15)" Key © Data '(14)"x"(15)" 0 *(14)"x"(15)" Key 0 Data 
20 . OHS suner (te) x 615)" *(14) * tqqqqaqqqqaqqaqaaqu' (15) ° *(14) * tqqqqqqqqqqaaqaqu’ (15)° "(14 
3 ° "10a C5 ey Teen, (1493015) 1 °(14)'x"(15)" Key 0 Index °(14)*x"(15)" 1 "(14)"x"(15)" Key 0 Inde 
8 s  -*etap*e arses“ Seeaneptenga® "(1G)" C15)" (14) "x" C15)" (14) "t a 
$9 CRLF .LOW SHIFT, qqqaqqgaaaaqaqu 

60 ° *(14)"x"(15)" Key n Bata °(14)'x'(15)" *(14)"x"(15)" Key nm Data '(14)"x'(15)" 2 *(14)"x"(15)" Key mn Data 

261 CRLF LOW SHIFT, 
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} $¢ iceland Ley ua *(16)"x"(15)° "(16)°x«'(15)° *(14)"%"(15)° 
} re) (1G) x" C15)! Key n Tndex 8044) "x "(15)" *(14)"x"(15)" Key m Index '(14)'x'(15)" *(14)'x"(15)" Key n Inde 
\ of : * (14) *magaaaggagaaggy (13) " (14) *maqqaqaqaaaqags *(15)" "(14) "maqaqqqaqaqaag] *(15)" " (14) "maqaqaaqqaa 
1268 , One (1) a ato i Three (3) Four (4)', 
1 4 CRLF) ' 
1270 } 
i n END { IF DEC_CRT } 
13 - , 
: Le BEGIN 
127 WRITELN (CRLF ,LOW SHIFT, 1 
1549 spe oe ee Neg Sea Wo maser, 
1280 "0! Key 0 Data | OT Key 6 vata | 0! Key 0 Data : 0! Key 0 Data :', 1 
1281 CRLF LOW SHIFT, 1 
1 8¢ "4 Foeneese nee nt teeceenneennnns ee --+', 
128 CRLF ,LOW_SHIFT 1 
1284 * {| Key O Index: 17 Key 6 Index | 1! Key O Index! 1! Key 0 Index |", { 
158? CRLF LOW SHIFT, 1 
1286 "? : T : teececoeee oo--+ ee ae { 
rt CRLF LOW SHIFT, 1 
1288 * { Key n Data } T Key n Data : 2: Key n Data {| 2! Key n Data !', 1 
F344 CRLF ,LOW_SHIFT, 1 
1290 ey : t H ' teecceee coceeot', 1 
if 94) CRLF ,LOW_SHIFT, 1 
1292 . : Key n Index } T Key n Index } | Key n Index | 3! Key n Index {', 1 
if 344 CRLF ,LOW_SHIFT, 1 
1294 ® fmoowcoce woewnt . es $eecowooooonce + $eoweoooooonnn+! 1 
1295 CRLF ,LOW_SHIFT, 1 
1296 . One (1) Two (2) Three (3) Four (4)', 1 
944 CRLF); 
} 99 END; { IF NOT DEC_CRT } 
1301 END } 
: § ELSE 
: 5 BEGIN 
: WRITELN (SHIFT,"(One Two Three Four Double)'); } 
1 END; { IF FULL_PROMPT OR TEMP_FULL_PROMPT } | 
1319 v : 
: 1 Always ask the question, even for brief prompting. | 
1314 WRITELN (SHIFT,*(Type ‘‘Double’’ to allocate 2 areas per key)'); { 
1315 WRITE (SHIFT, | 
: 19 ‘Number of areas to allocate (keyword)(Three) : '); | 
1318 END; € EDFSK_GRANULARITY } | | 

| 

| 
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EDFSK_SET_FUNCTION : 
BEGIN 


{ + 

See what char to set. 

CLEAR (CIF _FULL_PROMPT); 

IF FULL PROMPT OR TEMP_FULL_PROMPT THEN 

BEGIN 
a ( 
SH IFT 


ANSI REVERSE, 
FOC Editor SET Function ', 
ans i 


Ls 
CRLF "SHIFT, 
‘Analysis filespec of FDL Analysis file’, 


‘Displa type of graph to display’, 
of default bucketsize calculations’, 
*Granularity number of areas in Indexed files’, 


CRLF SHIFT, 
"NumBer_Keys number of keys in Indexed files’, 


CRLF geet 

*Out filespec of FDL Output file’, 

CRLF PSHIFT, 

cmeeeuir, Full or Brief prompting of menus’, 

CRLF _SHIF 

canpforees usage of default responses in scripts’, 
END 
ELSE 
BEGIN 


WRITELN (SHIFT, 
CRLF SHIFT, Display Emphasis Sranulority: ° 
CRLF_SHIFT,* Number_Keys Output Prompting Responses) '); 


END; { IF FULL PROMPT OR TEMP_FULL_PROMPT } 


P tn) 


+ 

iyeys ask the question, even for brief prompting. 
ITE (SHIFT, 

ditor characteristic to to set 
SI_LREVERSE, *C-]" ,ANSI_RESET,° 


ema 


thpyvord)", 


” 


VA 
DIS 


X-11 Pasc 
KSVMSMAS 
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END; € EDFSK_MAX_RECORD_SIZE } 

EDFSK_TEST_PRIMARY : 

BEGIN 
CLEAR (IF _FULL_PROMPT); 
IF FULL_CHOICE THEN 
BEGIN 


] 
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137 1s 
\ i END; { EDFSK_SET_FUNCTION } | 1; 
i 4} EDFSK_MAX_RECORD_SIZE : 1s 
1381 BEGIN | if 
! 88 WRITE (SHIFT,'Maximum Record Size (*)3 1 
i 85 IF IDATACEDFSK_SCRIPT_OPTION] = EDFSK_REL_DESIGN_FDL THEN | 1 
1387 BEGIN | 1s 
1 88 = . | 
1390 WRITE ( 1S 
1391 LOWMAX :NUM_LEN(LOWMAX), "=", 15 
1 % CUR_MAX_REC:NUM_LEN(CUR_MAX_REC),")", 15 
139 ANST_REVERSE, ' = ANSI ; 15 
1394 QTABCQTAB_OFFSETJ.DEFAUCT_OK ° := FALSE; 1 
1396 END 15 
1397 | 15 
1398 ELSE 1S 
1399 15 
189 ae : 
140 := 2; 1 
1208 WRITE ('0,', | at 
1404 LOWMAX:N _CENCLOWMAX) , "=", CUR_MAX_REC:NUM_LEN(CUR_MAX_REC), 
1406 QTABLOTAB_OFF SET]. DEFAULT _OK := TRUE; ( 
1407 QTABLQTAB_OFFSET].DEFAULT := 0; 
1090 Mes sf 
1411 IF ¢ 2c 
141g ( EXTRA + NUM_LEN(LOWMAX) + NUM_LEN(CUR_MAX_REC) ) > 9 2c 
141 ) THEN et 
1414 ( 
1415 WRITE (* : ") | ( 
1416 ( 
1417 ELSE | ( 
1418 
1419 WRITE (* 2"); 
1420 | 
8 
1038 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN | 


<m 
Vw > 
x 


Et 

v( 
1 ( 
14 ( 
14 BEGIN ( 
14 ( 
14 ache (SHIFT,' "* ( 
1438 NSI_REVERSE, ( 
1439 ai Ledal Primary Attributes ', ( 
1440 ANSI_RESET, ( 
1441 CR g ( 
re CRL HIFT, 2( 
144 ArCESS attributes set the run-time access mode of the file’, ( 
1444 CRLF_SHIFT, ( 
1445 "AREK x attributes define the characteristics of file area x', ( 
1446 CRLF SHIFT, ( 
1447 "CONNECT attributes set various RMS run-time options’, ( 
1448 CRLF_SHIFT, ( 
1388 nie " attributes set the date parameters of the file’, | 
1451 "FILE attributes affect the entire RMS data file’, ot 
1028 CRLF_SHIFT, 2( 
162? pop attributes set the journaling parameters of the file’, st 
\e32 ed attributes define the characteristics of key y', $ 
\eet RECORD attributes set the non-key aspects of each record’, st 
1639 So attributes set the run-time sharing mode of the file’, st 
re ‘System attributes document operating system-specific items’, | st 
1268 HETce is the header Line for the FDL file’, s 
1464 CRLF); 2( 
1465 ra 
1466 (* insert in above to handle ACLs 2( 
1467 "ACL entries specify the Access-Control-List of the file', 2( 
1468 CRLF _SHIFT 2( 
1469 *) 2( 
1470 $\ 
1471 END ( 
147 ( 
147 ELSE | ( 
1474 WRITELN (SHI ( 
1475 "(ACCESS ARE h CONNECT DATE FILE JOURNAL’, ( 
1or8 CRLF _SHIFT ( 
1477 "KEY RECORD SHARING SYSTEM TITLE"); 
rE (* ACL insert in above to handle ACLs *) 
1481 END | ( 
O88 ( 
14 ELSE ( 
1484 ( 
1485 BEGIN ( 
1486 ( 
1? IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 
1288 BEGIN ( 


Dd 10 in. ~ a | 
RE Source Listing "SSERIBEE PUSEGS  TREMGRASTEN!EESF2Sheacorase.ens:1"%8 2? 


90 
91 WRITELN ¢ 
38 SHIFT,’ m. 

9 ANSI_REVERSE 
94 * Current Primary Attributes ', | 
95 —e-" 
3 ); 
98 

99 { + 

00 


Setup to display definition on the terminal. 
OPEN (FDL BEST ,srecoutty] NAME ,NEW, 
RECORD _LENGTH := 252); 
REWRITE (FDL_DEST); 
SHOW_ALL_PRIMARIES; 
CLOSE (FDL_DEST); 
END 


ooo 
wr 


WRITELN (SHIFT, 
‘(Type ''?"' for a List of existing Primary Attributes)'); 


{ + 
Pop the question. 


WRITE (SHIFT,’*Enter Desired Primar (Keyword)C', 
DEFAULT PRIMARY : PRIMARY WIDTHCDEF AULT PRIMARY) ¢ 


IF DEFAULT_PRIMARY IN C AREA, KEY ) THEN 
WRITE (° *,DEFAULT_PRINUM:NUM_LEN(DEFAULT_PRINUM)); 
WRITE (*] : '); 
END; { EDFSK_TEST_PRIMARY } 
OTHERWISE 
{ NULL=STATEMENT } ; 
END; { CASE } 
END; { WRITE_QUESTION } 
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1541 { ++ 

154 

} “8 SPREAD_LOW_HIGH == Routine to make sure high-bound is 5 away from low-bound. 
i ir This procedure adjusts Y_LOW,Y_HIGH until high-bound >= low-bound. 
: 43 CALLING SEQUENCE: 
1233 SPREAD_LOW_HIGH (LO_LIM,HI_LIM); 
1551 INPUT PARAMETERS: 
1226 

15 LO_LIM 

1554 HI_LIM 

1555 

1556 IMPLICIT INPUTS: 
1557 

1558 none 

1559 

1560 OUTPUT PARAMETERS: 
1561 

1206 none 

156 

1564 IMPLICIT OUTPUTS: 
1565 

1566 none 

1567 

1568 ROUTINES CALLED: 
1569 

1570 none 

1571 

1376 ROUTINE VALUE: 

157 

1574 none 

1575 

1576 SIGNALS: 

1577 

1578 none 

1579 

1580 SIDE EFFECTS: 

1581 

1356 

158 -- } 
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PROCEDURE SPREAD_LOW_HIGH ( LO_LIM, HI_LIM : INTEGER ); 


BEGIN 


{ + 
Make sure the bounds are at least 5 apart. 
IF CIDATACEDFSK_Y_HIGH] = IDATACEDFSK_Y_LOW]) < 5 THEN 


BEGIN 
REPEAT 
IF IDATACEDF$K_Y_LOW] > LO_LIM THEN 
IDATACEDFS$K_Y_LOW] := IDATACEDFSK_Y_LOW] = 1; 
IF IDATACEDFSK_Y_HIGH] < HI_LIM THEN 
IDATACEDF$K_Y_HIGH] := IDATACEDFSK_Y_HIGH] + 1; 
UNTIL CIDATACEDFSK_Y_HIGH] = IDATACEDFSK_Y_LOW]) > 4; 
END; 


END;  € SPREAD_LOW_HIGH } 


5 
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§ 
é 
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3 
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{ ++ | | 
AUTO_SCALE == Scale a surface plot. | 
This procedure adjusts Y_LOW,Y_HIGH,Y_INCR until the plot fits on the screen. 
CALLING SEQUENCE: 
AUTO_SCALE (LOW_LIMIT,HIGH_LIMIT); 
INPUT PARAMETERS: 


IMPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 

ROUTINES CALLED: 
none 

ROUTINE VALUE: 
none 

SIGNALS: 

none 

SIDE EFFECTS: 


--) 


| 
LOW LIMIT 
HIGA_LIMIT 

| 


en. | 


: 
: 
7 
7 
: 
: 
7 
| 
7 
7 
7 
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16 $ PROCEDURE AUTO_SCALE ( LOW_LIMIT, HIGH_LIMIT : INTEGER ); } 
16 8 BEGIN 
16 
1660 { + 
1661 Figure out what the step between Lines should be. 
1296 We always have max_array_row steps. | 
1664 TEMP_INT2  := IDATACEDFSK_Y_HIGH); § 
1669 TEMP-REAL := CIDATACEDFSR_Y_HIGH) = IDATACEDFSK_Y_LOW]) / MAX_ARRAY_ROW; 
1667 IDATACEDFSK_Y_INCR] := TRUNC (TEMP_REAL); | ; 
1669 IF (CIDATACEDFSK_Y_HIGH] = IDATACEDFSK_Y_LOW]) MOD MAX_ARRAY_ROW) > 0 THEN ¢ 
+4 IDATACEDFSK_Y_INCRI := IDATACEDFSK_Y_INCR] + 1; § 
1878 { + 2 
16r8 Juggle the margins and the step until we get it to fit. § 
1928 REPEAT | 
1678 IDATACEDF$K_Y_HIGH) := IDATACEDFS$K_Y_LOW] é 
1679 + (MAX-ARRAY_ROW * IDATACEDFSK_Y_INCRJ); | ‘ 
1681 { + é 
1088 Adjust down if too high. | § 
1686 WHILE IDATACEDFS$K_Y_HIGH] > HIGH_LIMIT DO § 
1686 BEGIN | 
1688 IDATACEDESK.¥ LOW] := IDATACEDFSK_Y_LOW) = 1; | é 
1689 IDATALEDF $K~Y—HIGH) := IDATACEDFSK-Y-HIGH) - 1; é 
1691 END; é 
169¢ 2 
169 { + é 
1694 Adjust up if too low. 
1696 WHILE IDATACEDF$K_Y_LOW] < LOW_LIMIT DO 
1698 BEGIN 
1960 IDATACEDF$K_Y_LOW] = IDATACEDFSK_Y_LOW) + 1; | 
1701 IDATALEDF $K~Y—HIGH) = IDATACEDFSK-Y“HIGH] + 1; | 
1703 END; 
1704 
1705 { + 
1706 Try a smaller step if this didn't work. < 
HEA IF CIDATACEDFSK_Y_LOW] < LOW_LIMIT) OR (IDATACEDFSK_Y_HIGH] > HIGH_LIMIT) THEN 

| 

1719 IDATACEDF$K_Y_INCR) := IDATACEDFSK_Y_INCR] = 1; | ‘ 
1712 UNTIL (CIDATACEDFSK_Y_LOW] >= LOW_LIMIT) AND (IDATACEDFSK_Y_HIGH] <= HIGH_LIMIT); ‘ 


foes 6 Source Listing ife}e eat 7 99: 38: % PT SKSUMSMASTER EDF <SRCJEDFASK.PAS: 1 216) ad 


1713 
1714 { + 
Hay Adjust the range up if we've squeezed it low. 

i? IF IDATACEDFSK_Y_HIGH] < TEMP_INT2 THEN | 
1719 BEGIN 
1721 IDATACEDF $K_Y_LOW] = IDATACEDESK, Y_LOw) 

17 ¢ PyINte = IDATACEDFSK_Y_HIGH]); 

17 IDATACEDF $K_Y_HIGH] := IDATACEDESEA? HIGH] 

17 : EMP_INT2 = IDATACEDFS$K_Y_HIGH]); 

1726 END; 

1727 

1728 END; { AUTO_SCALE } 


§ 
{ 
§ 
{ 
| 
§ 
{ 
| 
{ 
{ 
‘ 
§ 
‘ 
, 
f 
| 
{ 
| 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
‘ 
‘ 
‘ 
{ 
{ 
{ 
{ 
‘ 
‘ 
‘ 
{ 
‘ 
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{ 
{ 
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, 
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{ 
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4 
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LO em 


| 
| 

17 { ++ r 
1731 | < 
\f ¢ ALT_SOURCE == Look for the answer elsewhere. | ¢ 
17 This function can look in the definition Linked List or the analysis Linked 
i 5 list, if it is determined that asking the user isn't appropriate. 4 

f 
\f CALLING SEQUENCE: | < 

4 
594 BOOLEAN_VAR := ALT_SOURCE (LINE_OBJECT_TYPE ,PRIMARY,PRINUM, SECONDARY ,SECNUM,AN_FLAG) ; | < 

rf 
1741 INPUT PARAMETERS: | P 
1706 r 
174 OBJECT TYPE r 
1744 PRIMARY d 
1745 PRINUM r 
Eo SECONDARY < 
174 SECNUM r 
1748 AN_FLAG < 
1749 r 
1750 IMPLICIT INPUTS: ‘ 
1751 é 
1726 none < 
175 r 
1754 OUTPUT PARAMETERS: ‘ 
1755 < 
1756 none < 
1757 é 
1758 IMPLICIT OUTPUTS: é 
1759 r 
1760 none é 
1761 r 
1708 ROUTINES CALLED: P 
176 < 
1764 none r 
1765 é 
1798 ROUTINE VALUE: ‘ 

< 
ire TRUE if the question should be asked, FALSE if it should be skipped. ‘ 
1770 SIGNALS: 
1771 ( 
1776 none < 
177 ( 
1774 SIDE EFFECTS: ‘ 
1775 ( 
irre none ‘ 
177 ( 
1778 -- } ‘ 

4 

{ 

{ 

‘ 

{ 

{ 

: 

4 
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780 FUNCTION ALT_SOURCE ( ) | 
81 OBJ_TYP LINE_OBJECT_TYPE; 
7 ; PRIM PRIMARY TYPE; 

183 PRIMNUM : INTEGER? 

7 co : SECONDARY_TYPE; 

785 SECONUM : INTEGER: 

786 AN_FLAG BOOLEAN 

187 ) | BOOLEAN; 

789 BEGIN 

a4 Initial setup for GLOBAL_COUNT question. 

19% IF QTAB_OFFSET = EDFSK_GLOBAL_COUNT THEN 


GLOBAL _SET := FALSE; 


33 


~~ 
oO 
oo 


{ + 
Should the question be visible? 


799 

800 The questions got ine compression percent are never visible and should 

Ht elways be found in the analysis file. 

803 IF ¢ 

rie sas SSEBLE OUEST FO OR (NOT OPTIMIZING)) 

806 ( NOT (QTAB_OFFSET IN C EDFSK_DATA_RECORD_COMP, EDFSK_DATA_KEY_COMP, 

807 EBFSK_INDEX_RECORD_COMP JJ) 

808 ) THEN 

809 

810 BEGIN 

811 

aig ALT_SOURCE := TRUE; 

81 

814 END 

815 

Big ELSE IF OPTIMIZING THEN 

818 BEGIN 

819 

ast { + 

as Try to get the data from the alternate source. 

: 5 IF AN_FLAG THEN 

| 

5 POINT_AT_ANALYSIS; 

H ; IF FIND_OBJECT (OBJ_TYP,PRIM,PRIMNUM,SECO,SECONUM) THEN 
9 BEGIN 


ALT_SOURCE := FALSE; 
CASE QTAB_OFFSET OF 


EDF $K_KEY_NAME 
EDFSK~FDL-TITLE, 


a ee ee ee T_T ee ee eee 


0000000090000 
SALAS 


| 
‘ 
§ 
{ 
f 
‘ 
{ 
{ 
‘ 
‘ 
‘ 
| 
| 
{ 
| 
| 
{ 
{ 
‘ 
f 
‘ 
, 
§ 
‘ 
| 
{ 
{ 
{ 
{ 
‘ 
{ 
f 
{ 
{ 
{ 
4 
{ 
{ 
‘ 
| 
{ 
| 
‘ 
‘ 
{ 
{ 
{ 
{ 
f 
{ 
{ 
{ 
{ 
{ 
{ 
‘ 


INPUT_VALUE é 
SEGMERT_POSITIONCSEGMENT_NUMBER) 


END; 

EDFSK_KEY_SIZE : 

BEGIN 
IDATACQTAB_OFFSET) 
INPUT VALUE 
SEGMERT_LENGTHCSEGMENT_NUMBER) 


DEF cy 
IDATACQTAB_OFFSETI; 
INPUT_VALUE; 


DEF _CURRENT*.NUMBER; | 
IDATACQTAB_OFFSET); | 
INPUT_VALUE; | 

| 
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183, EDFSK_DATA_FILE_NAME : | 
5 BEGIN 
1841 LIBSSCOPY DXDX (DEF CURRENT”. STRING, SDATALOTAB_OFF SETI): 
i é BDATALQTAG_OFFSETJ “~:= TRUE; 
1844 END; 
1846 EDF$K_NUMBER_DUPS, 
184 EDFSK-DESIRED_FILL, 
1848 EDFSK~ CONTROL SIZE 
1 EDFSK-MAX_RECORD SIZE 
1850 EDFSK~MEAR_RECORD SIZE, 
1851 EDFSK~DATA_KEY_COMP 
185¢ EDFSK-DATA-RECORD_ COMP, 
185 EDFSK-CLUSTER. SIZE 
1854 EDF $K~PROLOGUE_VERSION 
1855 EDFSK-INDEX_RECORD_COMP : 
1857 BEGIN 
1859 IDATACQTAB_OFFSET] := DEF_CURRENT*.NUMBER; 
1860 INPUT_VALUE := IDATACQTAB_OFFSETJ; 
1306 END; 
186 
1864 EDFSK_KEY_TYPE, 
1865 EDFSK_CARR_CTRL 
1866 EDFSKRECORD_FORMAT : 
1868 BEGIN 
1870 IDATACQTAB_OFFSET] := DEF CURRENT® QUAL FIER; 
137) INPUT_VALUE := IDATACQTAB_OFFSETJ; 
it om: 
1875 EDFSK_KEY_POSITION : 
i377 BEGIN 
1878 
1879 IDATACQTAB_OFFSET) RRENT* .NUMBER; 
| 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1838 | 
1895 EDF$K_GLOBAL_COUNT : | 
1897 BEGIN | 
1899 IDATACQTAB_OFFSET] := DEF CURRENT® . NUMBER; 
1900 INPUT VALUE := IDATACQTAB_OFFSETJ; 
1901 GLOBAC_SET := TRUE; 
1908 END;  { EDFS$K_GLOBAL_COUNT } | 
1905 EDF $K_KEY_DUPS 
1906 EDF $SKKEY~ CHANGES, 
1907 EDFSK-KEY-COMP_WANTED, 
1908 EDF S$K-REC~COMP-WANTED, 
1909 EDF $K~1DX~COMP~ WANTED 
1911 BEGIN 
1318 BDATACQTAB_OFFSET] := DEF_CURRENT*.SWITCH; 
1915 IF DEF_CURRENT*. SWITCH THEN 
1917 INPUT_VALUE := EDFSK_YES 
1919 ELSE 
1931 INPUT _VALUE := EDFSK_NO; 
1938 END; { EDFSK_KEY_DUPS } | 
1995 OTHERWISE | 
1927 { NULL-STATEMENT } ; 
1999 END; { CASE } | 
1983 END { IF FOUND } 
193 ELSE 
1934 
1935 BEGIN 
1939 C+ 
1938 We couldn't find it - ask the user directly. | 
1940 ALT_SOURCE := TRUE; | 
194¢ {+ 
194 Unless we're in /NOINTERACTIVE, in which case, 
HP ne: exit with an error. 
1946 IF ¢ 
194 (AUTO_ TUNE) 
1948 AND 
1949 (OTAB OFFSET IN [ EDF SK_INITIAL_COUNT, EDFSK_KEY_SIZE, 
1950 EDF $R_MEAN_RECORD_SIZE~J) 
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13 1 ) THEN | 
§ LIBSSTOP (EDFS_INSFANL,0,0,0); | 
1955 IF (QTAB_OFFSET IN Ce EDF $K_DATA_RECORD_COMP, FOF Sk DATA_KEY_COMP, 
1987 DFSK_INDEX_RECORD_COMP J) THER | 
19 : BEGIN 
195 
1960 ALT_SOURCE :2 FALSE; 
190] RDATACQTAB_OF FSET) := ; 
1968 END; 
1964 
1369 END; { If NOT FOUND } 
1967 POINT_AT_DEF INITION; 
Hb END; { IF FALSE (VISIBLE_QUESTION) OR (NOT OPTIMIZING) } 
1971 END; { ALT_SOURCE } 
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{ +4 


PRE_PROCESS <= Routine to setup question. 
This function does any needed calculations before asking the question. 
CALLING SEQUENCE: 

status := PRE_PROCESS; 

INPUT PARAMETERS: 

none 

IMPLICIT INPUTS: 

none 

OUTPUT PARAMETERS: 

none 

IMPLICIT OUTPUTS: 

none 

ROUTINES CALLED: 

none 

ROUTINE VALUE: 

TRUE if we should continue, FALSE otherwise 
SIGNALS: 

none 

SIDE EFFECTS: 


-- } 


Se , 


{ + 
See how far we can go. 


IF ( 

CIDATACEDFSK_MAX_RECORD_S1ZE3 = 0) 
(IDATACEDFS$K_MAX_RECORD_SIZE] > 255) 
) THEN 


MAX_KEY_SIZE := 255 
ELSE 


MAX_KEY_SIZE IDATACEDF $k_MAX_RECORD_SIZE); 
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Big FUNCTION PRE_PROCESS : BOOLEAN; | 
018 VAR 7? 
019 RECORD_OVERHEAD : INTEGER; 
020 TEMP_KEY_SIZE : INTEGER; 7 
1 RESUCT : BOOLEAN; 
5 § BEGIN | 
025 { + 
8 $ Assume success. 
8 ; PRE_PROCESS := TRUE; 5 
086 CASE QTAB_OFFSET OF i 
038 EDFSK_SURFACE_OPTION : , 
$08 IF ( | 7 
2035 {IDATALEDFSK_ACTIVE KEY <> 0) d 
2037 ( NOT (QTABCQTAB_OFFSET].DEFAULT IN C EDFSK_LINE_SURFACE, 7? 
2038 EDFSR_FILL_SURFACE, EDFSK_KEY_SORFACE J)) 37 
soze ) THEN . 
2061 QTABCQTAB_OFFSET). DEFAULT := EDFSK_LINE_SURFACE; zr 
$008 EDFSK_ADDED_COUNT_ HIGH ? 
2044 EDFSK-INITIAL_COUNT_HIGH : u 
2046 IF IDATACEDFS$K_Y_LOW] = 0 THEN u 
ae DEF := 100000 7 
2049 ? 
30 9 ELSE 
4 § DEF := 50 * IDATACEDFSK_Y_LOW); | y 
9 ‘ EDFSK_KEY_LOW : | , 
056 BEGIN 7 
038 ; 
059 | : 
a 
8 
8 
8 
8 
8 
g 
§ 
oat: 
a 
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QTABLQTAB_OFFSET].HIGH BOUND := MAX_KEY_SIZE; | 8 
QTABLOQTAB-OFFSET+1).HIGH BOUND := MAXTKEY "SIZE; | 8 
O75 QTABLQTAB-OFFSET+1).DEFAOLT := MAXIKEY-SIZE; | HY 
O77 END;  { EDFSK_KEY_LOW } | 8 
44 EDFSK_DATA_KEY_COMP : ; 
| 
081 BEGIN | 8 
08 PRE_PROCESS := FALSE; 8 
4 IDATACQTAB_OFFSET] := 0; : 
086 IF ¢ | 8 
08 CVDATACEDFSK_ PROLOGUE, VERSION]) | 38 
2089 (IDATACEDFS$K_PROLOGUE_VERSION] > 2) | 28 
7 Oe 
209 RESULT := ALT SOURCE (SEC,ANALYSIS OF_KEY, 28 
2095 IDATACEDF$K_ACTIVE_KEY],DATA_KEY_COMPRESSIONS,0, TRUE); 38 
3095 END; € EDFSK_DATA_KEY_COMP } 38 
097 EDFSK_DATA_RECORD_COMP : 28 
099 BEGIN 8 
2100 8 
2101 PRE_PROCESS := FALSE; 28 
$106 IDATACQTAB_OFFSET] := 0; $8 
$104 IF ¢ 28 
3105 (VDATACEDF $K_PROLOGUE_ VERSION) 8 
2107 (IDATACEDF$K_PROLOGUE_VERSION] > 2) 28 
388 ipe 
2110 RESULT := ALT SOURCE (SEC,ANALYSIS_OF_KEY 8 
ab IDATACEDF $K_ACTIVE_KEY],DATA_RECORD_COMPRESSIONS,0, TRUE); 8 
218 END; { EDFSK_DATA_RECORD_COMP } 8 
115 EDFS$K_INDEX_RECORD_COMP : | 8 
| Nf BEGIN | 8 
119 PRE_PROCESS := FALSE; 8 
120 IDATACQTAB_OFFSET] := 0; 8 
1 é IF ¢ 8 
123 (VDATACEDF $K_PROLOGUE _VERSION)) 8 
125 (IDATACEDF$K_PROLOGUE_VERSION] > 2) | 8 
126 ) THEN | 8 
128 RESULT := ALT SOURCE (SEC,ANALYSIS OF _KEY, | 8 
129 IDATACEDF $K_ACTIVE_KEY), INOEX_COMPRESSTONS,0, TRUE); 8 


PRE_PROCESS := ALT_SOURCE (SEC, KEY, IDATACEDFSK_ ACTIVE KEY), 
SEG_POSITION, SEGMENT_NUMBER,FALSED; 


END; { EDFSK_KEY_POSITION } 
EDFSK_KEY_DIST : 


SN NNN NOOO 


IF ( 

BADATACEDFSK ACTIVE REVI = 0) 
(NOT VDATACEDFS$K_KEY_DISTJ) 

) THEN 
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130 : | 8 
131 END;  € EDFSK_INDEX_RECORD_COMP } | : 
| § EDFSK_KEY_POSITION : | : 
; BEGIN | : 
137 { + 8 
} 8 See how far we can go. ; 
140 IF BDATACEDFSK_SEGMENTED] THEN 3 
lag BEGIN 8 
14 8 
146 TEMP_KEY_SIZE  := 0; : 
146 FOR TEMP_INT2 := 0 TO 7 DO 28 
is msi E 
130 IF SEGMENT_WANTEDCTEMP_INT2] THEN 38 
13¢ TEMP_KEY_SIZE := TEMP_KEY SIZE + rf 
13 SEGMENT_LENGTHCTEMP_INT2); 28 
155 END; 8 
156 $8 
157 END 8 
13 $5 
159 ELSE 3 
161 TEMP_KEY_SIZE  := IDATACEDFSK_KEY_SIZE]; 23 
es IF IDATACEDFSK_MAX_RECORD_SIZE] = 0 THEN 33 
rH MAX_KEY_POSITION := CUR_MAX_REC - TEMP_KEY_SIZE ; 
ELSE 3 
r) MAX_KEY_POSITION := IDATACEDFSK_MAX_RECORD_SIZE) 9 
9 - TEMP_KEY_SIZE; | ; 
§ QTABCQTAB_OFFSET).HIGH_BOUND := MAX_KEY_POSITION; | 
5 | 
6 
7 
8 
79 
0 
: 
Be 


F 11 


DUPLICATES,0, FALSE); 

END; { EDFSK_KEY_DUPS } 
EDFSK_NUMBER_KEYS : | 
PRE_PROCESS := ( 


(VISIBLE _QUESTION) 
(NOT NUMBER_KEYS_SET) | 
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187 ¢ 
188 IF IDATACEDFSK_ADDED_COUNT] > 0 THEN | } 
130 PRE_PROCESS := TRUE } 
19 S 
13 - bar 
194 BEGIN S 
136 BDATACQTAB_OFFSET] TRUE | : 
139 PRE_PROCESS := FALSE; , 
199 END S 
00 5 
8 ELSE | 
208 PRE_PROCESS := FALSE; 35 
2205 EDFSK_KEY_CHANGES : 3s 
2207 IF IDATACEDFSK_ACTIVE_KEY] <> 0 THEN 2s 
2209 PRE _PROCESS := ALT_SOURCE (SEC, KEY, IDATACEDFSK_ACTIVE_KEY), 25 
$$19 CHANGES ,0, FALSE) $3 
3312 ELSE $3 
221 25 
2214 BEGIN 25 
2215 5 
2216 PRE_PROCESS := FALSE; 5 
giz BDATALQTAB_OFFSET = FALSE: § 
219 END: 5 
2281 EDFSK_KEY_DUPS : 
8 BEGIN 
325 IF IDATACEDFSK_ACTIVE_KEY] = 0 THEN 
2397 QTABCOTAB_OFFSET].DEFAULT := EDFSK_NO | 
He ELSE 
5 1 QTABCQTAB_OFFSET].DEFAULT := EDFSK_YES; | 
2238 PRE_PROCESS := ALT_SOURCE (SEC. KEY, IDATACEDFSK_ACTIVE_KEY), 
s 
9 
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); 
EDFSK_CLUSTER_SIZE : 
BEGIN 
{ + 
This question shouldn't be asked for alternate keys, 
unless it hasn't been asked yet. Or unless we're optimizing. 
IF OPTIMIZING THEN 
PRE_PROCESS := ALT SOURCE (SEC,FILE$,0,CLUSTER_SIZE,0, TRUE) 
ELSE 


PRE_PROCESS r= ( 
(IDATACEDFSK_ACTIVE_KEY] = 0) 


— VDATACEDF $K_ADDED_COUNT)) 


END; { EDFSK_CLUSTER_SIZE } 
EDFSK_KEY_COMP_WANTED : 


BEGIN 
PRE PROCESS = FALSE; 
BDATACQTAB_OFFSET] := FALSE; 


(VDATALEDF$K PROLOGUE _ VERSION) 

(IDATACEDF$K_PROLOGUE_VERSION] > 2) 

CIDATACEDFSK_KEY TYPE = FDLSC_STG) 

PRE_PROCESS := ALT SOURCE (SEC,KEY 
IDATACEDFSR_ACTIVE_KEY1,DATA_KEY_COMPRESSION,0, FALSE); 

END; { EDFSK_DATA_RECORD_WANTED } 
EDFSK_REC_COMP_WANTED : 
BEGIN 


PRE PROCESS := FA 
BDATACQTAB_OFFSET] := FA 


Pe 


> 
e 
. 
° 


IF ¢ 
( VDATACEDF SK_PROLOGUE_VERSION]) 

(IDATACEDF$K_PROLOGUE_VERSION) > 2) 
(IDATACEDFSK_KEY_TYPE] = FDLSC_STG) 
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AND | 
(IDATACEDFSK_ACTIVE_KEY] = 0) | 
) THEN 
PRE _PROCESS := ALT_SOURCE (SEC,KEY 
IDATACEDFSK_ACTIVE_KEY],DATA_RECORD_COMPRESSION,O,FALSE); 

END;  {€ EDFSK_REC_COMP_WANTED } 
EDFSK_IDX_COMP_WANTED : 
BEGIN 

PRE_PROCESS := FALSE; 

BDATACQTAB_OFFSET] := FALSE: 

IF ¢ 

(VDATACEDF $K_PROLOGUE_ VERSION) 

(IDATACEDF$K_PROLOGUE_VERSION] > 2) 

(IDATACEDFSK_KEY_TYPE] = FDLSC_STG) 

) THEN 

PRE_PROCESS := ALT_SOURCE (SEC,KEY, 
IDATACEDFS$R_ACTIVE_KEY 4, INDEX_COMPRESSION,0,FALSE); 

END;  { EDFSK_IDX_COMP_WANTED } 


| 
EDFSK_NUMBER_DUPS : 


END; 
BDATACQTAB_OFFSET] := FALSE; 


BEGIN 
PRE_PROCESS := FALSE; 
33 IDATACEDFSK_NUMBER_DUPS] = := 0; 
337 RESULT := ALT SOURCE (SEC,ANALYSIS_OF_KEY, 
338 IDATACEDFS$R_ACTIVE_KEY4,DUPLICATES-PER, SIDR,0, TRUE); 
340 END: 
é EDFSK_SEGMENTED : 
4 BEGIN 
6 FOR TEMP_INT2 := 0 T0 7 DO 
8 BEGIN 
50 SEGMENT WANTEDCTEMP, INT2] := FALSE; 
51 SEGMENT-POSITIONCTEMP_INT2) := 0; 
38 SEGMENT~LENGTHLTEMP_IRT2) :=2 0: 
54 
35 
35 


Bl 
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IF IDATACEDFSK_KEY_TYPE] <> FDLSC_STG THEN 
PRE_PROCESS := FALSE; 
END; 
EDFSK_GLOBAL_WANTED : 
BEGIN 
bal_wanted by the sg gh od ; foe of a 
buffer ggunt second ‘Li hen eget inizing. 
ESN'T OSE T_ SOURCE ECAUSES 11 DOESN'T 
CONT FORD gant IN THE LIST, BUT DECIBES ON THE 
BASIS OF ITS PeISTENCE 


IF OPTIMIZING THEN 


X-11 Pascal Hd rp 4 Page 
KSVMSA MASTER: LEDF .SRCJEDFASK.PAS;1 (14) 


BEGIN 
IF FIND_OBJECT (SEC, FILE$,0,GLOBAL_BUFFER_COUNT,0) THEN 
INPUT_VALUE := EDFSK_YES 
ELSE 
INPUT_VALUE := EDFSK_NO; 
PRE_PROCESS := FALSE; 
END; 
END; { EDFSK_GLOBAL_WANTED } 
EDFSK_GLOBAL_COUNT : 
BEGIN 
PRE PROCESS := FALSE; 
RESOLT := AL T SOURCE (SEC, FILES,0,GLOBAL_BUFFER_COUNT,O,FALSE); 
END; 
EDFSK_INITIAL_COUNT : 
BEGIN 
{ + 


This question shouldn* t be asked for alternate keys, 
unless it hasn’t been asked yet. 


PRE PROCESS : 
UIDATACEDFSK_ ACTIVE_KEY] = 0) 


red VDATACQTAB_OFFSET)) 


48 


a a hse —| 
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IF OPTIMIZING THEN 
BEGIN 
POINT_AT_ANALYSIS; 


IF FIND_OBJECT (SEC,ANALYSIS_OF _KEY,0,DATA_RECORD_COUNT,O) THEN 
OLD_COUNT := DEF_CURRENT*.NUMBER 


WAI. AAR POPUPPOPOPOPUNNy 2 2 SS 
WN —OOOVNOUES WN OOOAOU 


tk eke et ke ee ek eee ee eee ee 


ELSE 
OLD_COUNT := 0; 
POINT_AT_DEF INITION; 
rt a okt - DEF AULT_OK := TRUE; 
QTABLOTAB_OFFSETJ.DEFAULT := OLD_COUNT; 
5 END 
437 ELSE 
tit QTABCQTAB_OFFSETJ.DEFAULT_OK := FALSE; 
re END; { EDFSK_INITIAL_COUNT } 
44 EDFSK_ASCENDING_LOAD : 
444 
445 { + 
2446 This question shouldn't be asked if we're doing a conv/fast, 
3is or for alternate keys, unless it hasn't been asked yet. 
449 PRE_PROCESS := ( 
3c3t CIDATACEDFSK_INITIAL_COUNT] > 0) 
43 “te (IDATACEDFS$K_LOAD_METHOD] <> EDFSK_FAST_CONVERT) 
454 ( 
tH (IDATACEDFSK_ACTIVE_KEY] = 0) 
45 (NOT VDATACEDF $K_ASCENDING_LOAD]) 
rk v3 
460 
ret EDFSK_ADDED_COUNT : 
46 { + 
464 This question shouldn't be asked for alternate keys, 
red unless it hasn't been asked yet. 
te? PRE_PROCESS := ( 
468 (IDATACEDFS$K_ACTIVE_KEY) = 0) 


0 
470 (NOT VDATACEDF $K_ADDED_COUNT3) 


$e -} 
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47 

47 EDFSK_LOAD_METHOD : 
474 

ryt BEGIN 

4? IF IDATACEDFSK_INITIAL_COUNT] > 0 THEN 

47 RESULT := ( 

"1 , CIDATACEDF SK ACTIVE KEY) = 0) 

re ‘re VDATACQTAB_OFFSET]) 

4 

485 ELSE 

486 

487 BEGIN 

488 

489 { + 

239 If_we have no initial load, default it to rms puts 

49 IDATACQTAB_OF FSET] := EDFSK_RMS_PUTS; 

487 RESULT := FALSE; 
stoe END; € IF FALSE IDATACEDFSK_INITIAL_COUNT] > 0 } 

ra IF NOT RESULT THEN 

499 INPUT_VALUE := IDATACQTAB_OFFSETI; 

28) PRE_PROCESS := RESULT; 

508 END; { EDFSK_LOAD_METHOD } 

505 EDFS$K_BLOCK_SPAN : 

09 

rydA BEGIN 

208 IF IDATACEDFSK_SCRIPT_OPTION] = EDFSK_SEQ_DESIGN_FDL THEN 

213 PRE_PROCESS := TRUE 

21 ELSE 

514 

212 BEGIN 

517 PRE_PROCESS := FALSE; 

318 INPOT_VALUE := EDFSK_YES; 

3 END; 

52 END;  { EDFSK_BLOCK_SPAN } 
5 ‘ EDFSK_DATA_FILE_NAME : 

§ BEGIN 

528 MAX_STRING_ANSWER_LENGTH  := 126; 
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BDATACQTAB_OFFSETJ := FALSE; 
IF OPTIMIZING THEN 


PRE _PROCESS Le 
ALT SOURCE (SEC,FILES,0,NAME,0,FALSE); 


END; { EDFSK_DATA_FILE_NAME } 
EDFSK_FDL_TITLE : 
BEGIN 


MAX _STRING_ANSWER_LENGTH  := 1 
BDATALQTAB_OFF SETI = F 


IF OPTIMIZING THEN 


PRE _PROCESS := 
ALT SOURCE (PRI,TITLE,0,DUMMY_SECONDARYS,0,FALSE); 


END; EDFSK_FDL_TITLE } 
EDFSK_KEY_NAME : 
BEGIN 


MAX_STRING_ANSWER_LENGTH 
BDATALQTAB_OFFSETJ 


IF OPTIMIZING THEN 


PRE_PROCESS r= 
ALT_SOURCE (SEC,KEY, IDATACEDFSK_ACTIVE_KEY],NAMES,0, FALSE); 


32; 
FALSE; 


EDFSK_ANALYSIS, 
EDFSK_OUTPUT : 


BEGIN 
MAX_STRING_ANSWER_LENGTH  := 126; 
BDATALQTAB_OFFSETJ := FALSE; 
IF OPTIMIZING THEN 

PRE_PROCESS := FALSE; 

END; 


EDFSK_ASCENDING_ADDED : 


{ + 
This question shouldn't be asked for alternate keys, 
enjens it hasn't been asked yet. 


-277 Pa 
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ee , 4 
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PRE_PROCESS := ( 
CIDATACEDF SK _ADDED_COUNT3 > 0) 
CUIDATACEDFSK ACTIVE KEV) = 0) 


(NOT VDATACEDFSK_ASCENDING_ADDED])) 


| 
| 
| 
| 
EDFSK_BLOCKS_IN_BUCKET : 
| 
| 


SRANVLESSELS 


OA AL AL AL AL AD AL 


96 BEGIN 

38 QTABCQTAB_OFFSET].DEFAULT := BUCKET_DEFAULT; 
600 { + 

60 Calculate the bucket overhead. 

rt THIS QUESTION IS ONLY FOR INDEXED_DESIGN. 

ope BUCKET_OVERHEAD := CALC_BUC_OVERHEAD (0); 
6 


{ + 
See what the smallest allowable bucketsize is. 


eee SSS Sse 


3 

3 

i 

i 

3 

i 

3 

i 

: 

i 

3 

60 IF IDATACEDFSK_ACTIVE_KEY)] = 0 THEN i 

2611 ENTRY_SIZE := IDATACEDFSK_MAX_RECORD_SIZE) 

$18 ELSE 3 

614 3 

i BEGIN 

ei? IF BDATACEDFSK_SEGMENTED] THEN 

619 BEGIN 3 

620 3 

621 ENTRY_SIZE := 0; ; 

36 § FOR TEMP_INT2 := 0 TO 7 00 i 

6 ; BEGIN i 

6 4 IF SEGMENT_WANTEDCTEMP_INT2] THEN ‘ 

629 ENTRY_SIZE := ENTRY_SIZE + 5 ‘ 

os SEGMENT_LENGTHCTEMP_INT23; i 

638 END; 
6 

6 END 

635 

ELSE 

6 4 ENTRY_SIZE := IDATACEDFSK_KEY_SIZE); | 

640 END; | ; 

642 RECORD_OVERHEAD —_:= CALC_REC_OVERHEAD(O); | 
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643 

644 MIN_BUCKET := (ENTRY Sige + BUCKET_OVERHEAD + RECORD_OVERHEAD) 
645 DIv 512; 

ers IF (¢ 

33 ((CENTRY_SIZE * BUCKET_OVERHEAD + RECORD_OVERHEAD) MOD 512) <> 0) 
650 (MIN_BUCKET = 0) 

$31 ) THEN 

638 MIN_BUCKET := MIN BUCKET + 1; 

635 QTABCQTAB_OFFSETJ.LOW_BOUND := MIN_BUCKET; 
637 IF QTABCQTAB_OFFSETJ.DEFAULT < QTABCQTAB_OFFSETJ.LOW_BOUND THEN 
699 QTABLQTAB_OFFSETJ.DEFAULT := QTABLQTAB_OFFSET].LOW_BOUND; 
2661 END; { EDFSK_BLOCKS_IN_BUCKET } 
$006 EDFSK_KEY_SIZE : 

664 
ies BEGIN 

666 

667 { + 
508 Check according to key type. 
3670 CASE IDATACEDFSK_KEY_TYPE] OF 
3678 FDOLSC_BN2, FDLSC_IN2 : 

674 BEGIN 
sor? 

676 MAX_KEY_SIZE = $i 
sore MIN_KEY_SIZE = 2; 

678 

679 END; 

680 

681 FOLSC_BN4, FDLSC_ING 

oes BEGIN 

684 

685 X_KEY_SIZE = 4; 

ese MIN-KEYSIZE = 4; 

END; 

689 

85 FOLSC_BN8, FDLSC_IN8 : 

69 BEGIN 

69 

694 MAX_KEY_SIZE s 8: 

695 MIN_KEY_SIZE = 8; 

is 

69 END; 


FDLSC_PAC : 


; 
i 
i 
i 
i 
i 
i 
j 
i 
i 
i 
; 
i 
i 
i 
i 
i 
i 
j 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
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i 
; 
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ogo 
ru 


<m 


{ + 
6 how far we can go. 


IF ( 
(IDATACEDF$K_MAX_RECORD_SIZE] <> 0) 


ro BEGIN r 
re 4 
70 MAX_KEY_SIZE = 16; 4 
f MIN-KEY_SIZE 21 | 7 
? END; 4 
> FDLSC_STG | r 

en a: 

, 23 
7 MAX_KEY_SIZE = 255; 4 

27 MIN_KEY_SIZE = 1; rt 

ND; 43 

Seanad 33 

343 

{ NULL=STATEMENT } ; se 

END; { CASE } 44 


SESSSE SS 
5 at et et et ee el 


(IDATACEDFSK_MAX_RECORD_SIZE] < MAX_KEY_SIZE) 45 
) THEN 43 
5 MAX_KEY_SIZE  := IDATACEDFSK_MAX_RECORD_SIZE); 45 
QTABLOTAB_OFFSET].LOW BOUND := MIN_KEY_SIZE; 45 
QTABCQTAB_OF FSET].HIGA_BOUND := MAX_KEY_SIZE; 2 
Ha RESULT 32 5 
38 ALT_SOURCE (SEC,KEY, IDATACEDFS$K_ACTIVE_KEY],SEG_LENGTH, 5 
39 SEGMENT_NUMBER,FALSE); 6 
40 PRE_PROCESS := RESULT; 
741 | 4 
| 
| 


IF ¢ 
7k (RESULT) 
AN 


POPIPOPIPIPOPNSPONINIPIPOPYNIPOPUNO PORT NoNonofonofnornofonofnony» 


6 

6 

6 

r4 

745 (QTABCQTAB_OFFSET].LOW_BOUND = QTABCQTAB_OFFSET).HIGH_BOUND) 46 
746 ) THEN 46 
747 6 
748 BEGIN 6 
749 7 
750 PRE_PROCESS := FALSE: ? 
751 INPOT_VALUE := QTABCOTAB_OFFSET).LOW_BOUND; 7 
75 IDATATQTAB OFF ser] := INPUT_VALOE; ? 
233 SEGMENT_LENGTHCSEGMENT_NUMBER] := INPUT_VALUE; 
END; 7 

7 
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END;  € EDFSK_KEY_SIZE } , 
EDF $K_PROLOGUE_VERSION : 


BEGIN 


IF ( 
(IDATACEDFSK_ACTIVE_KEY] = 0) 

(NOT VDATACEDF$K_PROLOGUE _VERSION]) 
) THEN 


PRE _PROCESS : 


ALT_SOURCE (SEC KEY, IDATACEDF$K_ACTIVE KEYJ, PROLOGUE ,0, FALSE) 
ELSE 
PRE_PROCESS := FALSE; 
END; 
EDFSK_ACTIVE_KEY : 
BEGIN 


{ + 
Find out the range of existing keys (assume contiguous). 
SCAN_DEFINITION (TRUE); 


GT ABE OTAB.OFFSET].LOW BOUND 
QTABCQTAB_OF F SET].HIGA_BOUND 


“ou 
=r 


IF ( 
(QTABLOTAB_OFFSET2.LOW_BOUND = QTABCQTAB_OFFSET).HIGH_BOUND) 


BEGIN 


PRE_ PROCESS 
INPOT_VALUE 


END; 
END; { EDFSK_ACTIVE_KEY } 
EDFSK_CARR_CTRL : 
BEGIN 

{ + 


Don't actually ask the question if the user is potteteres a key, 
or if it's.an alternate key - unless it hasn't been asked yet. 


FALSE; 
OT ABEATAB_OFFSET).LOW_BOUND; 


IF ¢ Nees 
CIDATACEOFSK_ACTIVE_KEY) = 0) 


’ 


-—O 
ot 
a 

1x 
zm 
m~< 
~<: 

. 


Pyare Tee were a) ee 7 2. oc ee ee ee ee ee ee ee ee ee ee i fae 1 ee fe ae oe ae ae ae ee | 
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(NOT VDATACEDFSK_CARR_CTRLI) 
) THEN 


PRE _PROCESS := 
ALT SOURCE (SEC,RECORDS$,0,CARRIAGE_CONTROL ,O,FALSE) 


‘co 
—_ 
ys 


ELSE 
PRE_PROCESS := FALSE; 
END; { EDFSK_CARR_CTRL } 
EDFSK_CONTROL_SIZE : 


IF IDATACEDFSK_MEAN_RECORD_SIZEJ < 256 THEN 


Mrororoferononopofporofroropeonoforonferrr 
9 09 00 Cn 09 Cd C9 Co C0 CD CD CD C9 C9 C9 09 CD CD. CD CD. CD CD CD CD CD 


WWAAAIINIARPOPPONOPPOPUNYPY 2 SS SS 


OWNANE WO DO SHAR UNI ODO NOU EU O ONO 


é CUR_MAX_FIXED := IDATACEDFSK_MEAN_RECORD_SIZEJ 

2 3 ELSE 

283 CUR_MAX_FIXED  := 255; 

28% QTABLQTAB_OFFSET).HIGH_BOUND := CUR_MAX_FIXED; 

284 PRE_PROCESS := ALT_SOURCE (SEC,RECORD$,0,CONTROL_FIELD_SIZE,0,FALSE); 
384 END; { EDFS$K_CONTROL_SIZE } 

284 EDFSK_KEY_TYPE : 

She BEGIN 

850 

851 PRE_PROCESS := 

4 ALT_SOURCE (SEC,KEY, IDATACEDFS$K_ACTIVE_KEY],SEG_TYPE,7,FALSE); 
854 END; { EDFSK_KEY_TYPE } 

33 EDFSK_DESIRED_FILL : 

58 BEGIN 
859 
860 


} 
| 
| 
| 
| 
| 
BEGIN 

{ + 

The fixed portion of a record can't be larger than the record. 
| 
| 
| 


Fite doesn't mean anything if we don't have any records. 
IF IDATACEDFSK_INITIAL_COUNT] > 0 THEN 
BEGIN 

PRE_PROCESS 3 


= 
ALT_SOURCE (SEC, KEY, IDATACEDFSK_ACTIVE_KEY), 
DATA_FILL,O,FALSE) 


5 5 


Soe 


12 


CUR_MAX_REC := (BKTSC_MAXBKTSIZ * 512) - 
(CALC_BUC_OVERHEAD(O) + CALC_REC_OVERHEAD(0)); 


EDFSK_MEAN_RECORD_SIZE : 
BEGIN 


DONOR WN—O 


{ + 
Setup the max allowable record size. 
CASE IDATACEDFSK_SCRIPT_OPTION] OF 


EDF ASK ig-8e -1984 00:56:05 VAX-11 Pascal V2.4-277 Page 57 | ED 
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871 END { IF TRUE IDATACEDFSK_INITIAL_COUNT > 0 } | | ; 
er8 ELSE | 
7% | > 
Ye BEGIN | ? 
877 IDATATEDE $k DESIRED FILL = 100; | > 
878 IDATACEDFS$K_FDL_F ILC) = 100; Py 
879 PRE_PROCESS = FALSE; : 
881 END; 2 
i Saat: 
88 END;  { EDFSK_DESIRED_FILL } | 33 
885 EDFSK_MAX_RECORD_SIZE : 33 
887 BEGIN 32 
888 35 
889 { + 35 
890 Because mean_record_size includes fixed control area, and maximum 35 
891 record size doesn't, it's possible to get a mean that's larger 35 
44 2 the max. Don't get confused by it. 
oe IF CUR_MAX_REC < IDATACEDFSK_MEAN_RECORD_SIZE] THEN 
$8 LOWMAX := CUR_MAX_REC 
2897 
2898 ELSE 
2899 
900 LOWMAX := IDATACEDFS$K_MEAN_RECORD_SIZE); 
308 QTABCQTAB_OFFSETJ.LOW BOUND := LOWMAX; 
$303 QTABLQTAB_OFFSETJ.HIGA_BOUND := CUR_MAX_REC; 
3.444 PRE_PROCESS := ALT_SOURCE (SEC,RECORDS,0,SIZE,0,FALSE); 
3444 END; { EDFSK_MAX_RECORD_SIZE } 
909 EDFSK_SIZE_LOW : 
| 
| 


DFSK_ADD_KEY_FDL 
LETE_REY FDL, 
GN7FDL. | 
FOL, 
FDL : 


K7DE 
K1DX_DES! 
KTREDESIGN 
K7OPTIMIZE 


MIMO 
NOUS WIN —OO 


E 

EDF$ 
EDFS 
EDFS$ 
EDFS 


] 
F 1 

- = = - 
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<m 
FS 


ELSE 
PRE_PROCESS := ALT_SOURCE (SEC,RECORDS$,0,SIZE,.0,FALSE); 
END; { EDFSK_MEAN_RECORD_SIZE } 
EDFSK_RECORD_FORMAT : 
BEGIN 


Ask 
9 : CUR_MAX_REC := (BKTSC_MAXBKTSIZ * 512) 
9 “(CALC_BUC C OVERHEAD (0) * CALC REC OVERHEAD(0)); 
930 EDF$K_SEQ_DESIGN_FDL = COR REC BIGGEST_SEQ_FIXED; 
3 1 EDFSKTREL“DESIGN-FDL : IF DAR IRGLE _RECORDS THEN | 
3 5 CUR_MAX_REC := BIGGEST_REL_VAR | 
3 3 ELSE 
3 : CUR_MAX_REC := BIGGEST_REL_FIXED; 
959 OTHERWISE 
941 { NULL=STATEMENT } ; 
3c8 END; { CASE } 
s3c8 IF 
2346 TDATACEDFSK _SCRIPT_OPTION] = EDF$K_SEQ_DESIGN_FDL) 
948 (NOT BDATACEDF$K_BLOCK_SPANJ) 
949 ) THEN 
2951 IF VARIABLE_RECORDS THEN 
$3e8 CUR_MAX_REC := 510 
2954 
2995 ELSE 
3357 CUR_MAX_REC := 512; 
2359 QTABLOTAB_OFFSET].HIGH_BOUND := CUR_MAX_REC; 
961 IF VARIABLE_RECORDS THEN 
$3e8 PRE_PROCESS 
2 “ALT_SOURCE (SEC,ANALYSIS_OF KEY,0,MEAN.DATA_LENGTH,0, TRUE) 


{ + 
This question shouldn' t be ophee for alternate keys, 
unless it hasn't been asked before. 


| 

; 
(NOT ISAM_ORG) | 
apPATACEDE Sk ACTIVE KEV) = 0) 
| 
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(NOT  VDATALEDF SK RECORD_FORMAT]) 


) THE 

PRE_PROCESS := ALT SOURCE (SEC,RECORDS$,0,FORMAT,O, FALSE) 
ELSE 

PRE_PROCESS := FALSE; 


END;  € EDFSK_RECORD_FORMAT } 
EDFSK_DESIGN_CYCLE : 
BEGIN 
IF NOT AUTO_TUNE THEN 
BEGIN 


| 
| 
| 


{ + 
Display the current value of the file parameters. 
CLEAR (LOWER_AREA); 


SEES ES EES S SERS To 


O10 Special support for the V1T125. Turn on graphics mode, setup text. 

01 
4 bon 
015 

Big WRITE (°°(27)'Pp;"); 

DS IF IDATACEDFSK_SURFACE_OPTION] <> EDFSK_LINE_SURFACE THEN 

020 WRITE ( 

021 *PC27,2853;T(W(13))"* Key: Good ‘";TCWC12))""Fair ‘"";TCWC11))"*Poor''’;"); 

st WRITELN (*PC27,320];T(WC13))"'"); 

025 

6 WRITE (LOW_SHIFT,* ‘); 


WRITE ('PV-Prolog Version *, IDATACEDF$K_PROLOGUE_VERSION]:1,° °); 


WRITE. (*KT-Ke 
IDATACEDFSK ACTIVE_KEVI:3, 
Type ‘J; 


oo 


o 
> 
wn 
mn 
— 
o 
> 
— 
Pd 
: oe 
Mm 
J 
wn 
wf 
x 
a 
x 
mm 
~< 
q 
“ 
=< 
wv 
m 
co) 
cna’ 


END;  € IF REGIS } 
| 
| 


6 
6 
6 
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6 
6 
36 
36 
7? 
7 
7 
7 
7 
3 
7 
7 
7 
7 
7? 
7? 
7? 
7? 
7? 
7? 
7 
7 
37 
? 
? 
7 
? 
7 
7 
? 
? 
? 
? 
? 
? 
? 
? 
? 
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FOLSC_INS : WRITE (° Int8 '); | 
FDLSC“STG : WRITE (" String '); | 
OTHERWISE 


{ NULL=STATEMENT ) ; | 
END;  { CASE } 
WRITE ("EM-Emphasis '); | 
IF IDATACEDFSK_SURFACE_OPTION] <> EDFSK_LINE_SURFACE THEN | 
WRITE (° '); 


WAN. ANIA ANNAN AIAIANNN 


SNA NNN NSN NNN NSN NNN NSN NSS SINS SSS OOOO 


IF IDATACEDFSK_BUCKET_WEIGHT] = EDFSK_SMALLER_BUFFERS THEN 
WRITE ("Smaller') 
ELSE 


PES SoCo SSCS SSSSSSSSSS 


WRITE ("Flatter'); 
IF IDATACEDFSK_SURFACE_OPTION] = EDFSK_LINE_SURFACE THEN 


99 BEGIN 
BUCKET _DEFAULT := NATURAL DEPTH; 
WRITE T' (',BUCKET_DEFAULT:2,'3'); . 
END; 


WRITELN; 
WRITE (LOW_SHIFT,* °); 


WRITE ("DK=-Dup Key’, 

IDATALEDFSK_ACTIVE_KEY]:3, 
| 
| 
| 


PANNA AANA AIAN AWWW 


* values ‘J; 

IF BDATACEDFSK_KEY_DUPS] THEN 
WRITE ("Yes ‘) 

ELSE 
WRITE (" No '); 


IF CIDATACEDFSK_SURFACE OPTION] = EDFSK_LINE_SURFACE) 
OR (IDATACEDFSK_SURFACE_OPTION] <> EDFSK7KEY_SURFACE) THEN 


WRITE (*KL-Key’, IDATACEDFSK_ACTIVE KgY}:3- 
* Length *, IDATACEDFSK_KEY_SIZEJ:3,° "); 


WRITE (*KP=Key*, IDATACEDFSK_ACTIVE_KEY):3, 
" Position $Y IGATALCDE SK KEI POSITIONS 28." '); 


WRITELN; 


7 
7 
7 
7 
7 
7 
7 
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WRITE (LOW_SHIFT,* °); 

IF IDATACEDFSK_PROLOGUE_VERSION] > 2 THEN 

BEGIN 


| 
| 
WRITE ( ata Record C | 
TRUNE (ROATA ty sDATA RECORD, €omP]*100.0): ae'e “Pa 


wR 
TRUNE CRATALED Por sk abate "Rey _comb3#100. 0):3,'% "); 
TRUNE (ROATALEDESK TN INDEX “neeero’ COMP]*100.0):3,'% "); 


WRITELN; 
WRITE (LOW_SHIFT," '); 
END;  { IF IDATALEDFSK_PROLOGUE_VERSION] > 2 } 


IF (IDATACEDFSK_ SURFACE OPTION] = EDFSK_LINE_SURFACE) 
OR (IDATACEBFSK_SURFACE_OPTION] <> EDFSK_FILL_SURFACE) THEN 


WRITE (*BF-Bucket Fill *, ,IDATACEDFSK_DESIRED_FILL]:3,'% °); 
WRITE (*RF-Record Format '); 
IF VARIABLE_RECORDS THEN 

WRITE (‘Variable °) 


IF CIDATACEDFSK SURFACE OPTION] = EDFSK_LINE_SURFACE) 
OR (IDATACEBFSK_SURFACE_OPTION] <> EDFSK-SIZE_SURFACE) THEN 


BEGIN 
WRITE ("RS="); 
IF VARIABLE_RECORDS THEN 
WRITE ("Mean Record Size ') 


I 


: 
f 


ELSE 
WRITE (‘Record Size *)3 
WRITE CIDATACEDFSK_MEAN_RECORD_SIZE]:5,° °); 
END; 


WRITELN; 
WRITE (LOW_SHIFT,* °); 
WRITE ("LM-Load Method '); 


DIANA & & = Ww WWIII ROPONINIPUNUNINOYD 2 = SS SS I OOOOO. 


ELSE 
WRITE (° Fixed '); 
| 


mv 
NO 


Oo 


FAAS 


VEAEANESSSVSAF ANAS SSIFAFALLS 


Se 


BRALLE 
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CASE IDATACEDFSK_LOAD_METHOD] OF 


EDFSK_FAST_CONVERT : WRITE (' Fast conv '); 

EDFSK_NOFAST_ CONVERT : WRITE ("NoFast_Con "); 

EDFSK-RMS_PUTS : WRITE (* RMS_Puts '); 
OTHERWISE 


{ NULL=-STATEMENT }) ; 
END; { CASE } 


IF CIDATACEDE SK SURFACE OPTION] = EDFSK_LINE_SURFACE) 
OR (IDATACEDFSK_SURFACE_OPTION) <> EDFSK INIT SURFACE) THEN 


WRITE ("IL-Initial Load ', IDATACEDFSK_INITIAL_COUNT]:9," '); 


IF (IDATACEDF$K_SURFACE_ OPTION] = EDFSK_LINE_SURFACE) 
OR (IDATACEBFSK_SURFACE_OPTION] <> EDFSK-ADDED_SURFACE) THEN 


WRITE ("AR-Added Records’, IDATACEDFSK_ADDED_COUNT]:9,° '); 


he with display, now turn Graphics Mode off. 
IF REGIS THEN 

WRITELN (°"";°(27)'\", CRLF,CRLF); 
WRITELN; 


{ + 

Compensate for absent compression Line. 

IF IDATACEDFSK_PROLOGUE_VERSION] < 3 THEN 
WRITELN; 


v2 4-277 Page 62. 
:CEDF. SRCJEDFASK.PAS;1 (14) 


i 


PDE II IIIA) at et kt ee et ed a a ad dd ed od od ed 
Wr co~ 


So 
uw 


END; { IF NOT AUTO_TUNE } 
END; { EDFSK_DESIGN_CYCLE } 
OTHERWISE 
{ NULL=STATEMENT } ; 
END; { CASE } 
END; { PRE_PROCESS } 


panassednensianapnnmanmemsniisantntimentches : 
| 
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{ ++ 

VERIFY PROCESS == Routine to check answer during questioning. 
This function makes sure the user is giving good answers. 
CALLING SEQUENCE: 

status := VERIFY_PROCESS; 

INPUT PARAMETERS: 


SIDE EFFECTS: 


08 
10 
1} 
13 
14 
\? 
i 
13 none 
; IMPLICIT INPUTS: 
5 none 
2 OUTPUT PARAMETERS: 
$ i none 
229 IMPLICIT OUTPUTS: 
31 none 
3 ROUTINES CALLED 
234 . 
235 none 
$39 
HH ROUTINE VALUE: 
339 TRUE if we should continue, FALSE otherwise 
241 SIGNALS: 
seg 
24 none 
244 
245 
$e 
4 
248 


--} 


LE —————— ———————————————— 
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FUNCTION VERIFY_PROCESS : BOOLEAN; 
BEGIN 
{ + 
Assume success. 
VERIFY _PROCESS := TRUE; 


CASE QTAB_OFFSET OF 
EDF SK_KEY_NAME 
EDFSK-FDL-TITLE, 
EDFSK_ANACYSIS, 
EDF $K-OUTPUT 
EDFSK"DATA_FILE_NAME : 
BEGIN 
IF SDATACQTAB_OFFSET].DSC$W_LENGTH = 0 THEN 
BEGIN 
BDATACQTAB_OF FSET) := FALSE; 
END 
ELSE 


BEGIN 
IF ( 
Frat AL OTA _OFF SETS.DECOU_LENSTE > MAX_STRING_ANSWER_LENGTH 


BEGIN 

IF OPTIMIZING THEN 

BEGIN 
SDATACQTAB_OFF SET 
BDATACQTAB_OFF SET 

END 

ELSE 

BEGIN 


STRSFREE1 DX (SDATACQTAB_OFFSETJ); 
VERIFY_PROCESS := FALSE; 


LENGTH := 
NG_ANSWER_LENGTH; 
:= TRUE; 


BiH 
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ELSE 
BDATACQTAB_OFFSET] := TRUE; 
END; { IF FALSE SDATACQTAB_OFFSET].DSCS$W_LENGTH = 0 } 


IF IDATACQTAB_OFFSET] < 50 THEN 
BEGIN 
IDATACQTAB_OF FSET) := 50; 
IF NOT AUTO_TUNE THEN 
BEGIN 


WRITELN (SHIFT,*Initial Fill of 50% assumed"); 
LIBSWAIT (3.0); 


END; 
END; 
EDFSK_DESIGN_CYCLE : 
BEGIN 


{ + 
Make sure he hasn‘t typed a temporarily disabied option. 
IF IDATACEDFSK_SURFACE_OPTION] <> EDFSK_LINE_SURFACE THEN 
IF ¢ 
sey ih SURFACE_OPTION]) = ) For sx. FILL SURFACE) 
NPUT_VALUE = EDFSK_BF) 


OR 
sey 8 SURFACE _OPTION] : Foren. INIT_SURFACE) 
NPUT_VALUE = EDFSK_I 


OR 
veer yt SURF ACE OPTION] = foree ~ADDED_ SURFACE) 
PUT_VALUE = EDFSK_AR)) 


OR 
SCIOATAC SOT ee SURF ACE se TIONS, ; poren ~SIZE SURFACE) 
NPUT_VALUE = EDFSK_R 


OR 
CCIDATACEDESK SURFACE_OPTION] = ) FOr sk _KEY_SURFACE) 
NPUT_VALUE = EDFSK_KL 


( 
( NOT CIDATACEDFSK_KEY_TYPE] IN C FDLSC_PAC, FDLSC_STG }) ) 


11 Pas 
KSVMSMA 


ob Vestee Pee, 65 
TER: LEDF. CRCIEDFASK. PAS;1 (16 
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, AND CINPUT_VALUE = EDFSK_KL) 
) THEN 
VERIFY_PROCESS := FALSE; 


e sure that he modifies only reasonable things. 
following options make sense only for the primary key. 


—" so 
=mno Wert 


zxor~ 
n” 


TACEDFSK ACTIVE KEY) <> 0) AND (INPUT_VAL 
Esk RE EDFSK_RS, EDFSK_IL, EDFSK_AR, EDF 


VERIFY_PROCESS := FALSE; 


F ¢ 
I 


~rmne 1 HES 


UE IN 
$k_PV, EDFSK_LM J) 


TACEDF$K_ PROLOGUE _VER on 3) AND (INPUT_VALUE IN 


I 
CIDA S < 
C EDFSK_KC, EDFSK_RC, EDFSK_IC }) 
) THEN 

VERIFY_PROCESS := FALSE; 


IF CIDATACEDFSK_INITIAL_COUNT] < 1) AND 
(INPUT_VALUE = EDFSK_LM) THEN 


VERIFY_PROCESS := FALSE; 


IF ¢ 
CIDATACEDFSK_INITIAL COUNT} < 1) 
CINPUT_VALUE = EDF SK_8F) 

(NOT AUTO_TUNE) 

) THEN 


BEGIN 
WRITELN (SHIFT,ANSI_REVERSE, 
* Fill Factor used 7s 100% when Initial Load is zero. ', 
ANSI_RESET); 
LIBSQAIT (3.0); 
END; 


{ EDFSK_DESIGN_CYCLE } 


EDFSK_SURFACE_OPTION : 
BEGIN 
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2 
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{ + 
Disallow queer options. 


F ¢ 
(IDATACEDFS$K_ACTIVE_KEY) <> 0) 


See eee 
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AND 


] 
| 
421 
4 g ( 
4 ; (INPUT_VALUE = EDFSK_SIZE_SURFACE) 
4 ; (INPUT_VALUE = EDFSK_INIT_SURFACE) | 
7 4 CINPUT_VALUE = EDFS$K_ADDED_SURFACE) 
429 ) THEN | 
431 VERIFY_PROCESS := FALSE; 
it END; { EDFSK_SURFACE_OPTION } 
435 EDFSK_RECORD_FORMAT : 
436 
43? BEGIN 
3635 IDATACEDFSK_RECORD_FORMAT] := INPUT_VALUE; 
441 { + | 
44 Indexed files can have only fixed or variable record format. 
3s 35 abc files can't be stream or undefined. 
45 IF ( 
446 ( 
447 (1SAM_ORG) | 
448 AN | 
49 (NOT (IDATACEDFSK_RECORD_FORMAT] IN C FDLSC_VAR, FDLSC_FIX J)) $10 
451 OR 410 
43g ( 410: 
43 (IDATACEDFSK_SCRIPT_OPTION] = EDFSK_REL_DESIGN_FDL) 410 
3435 CIDATACEDF$K_RECORD_FORMAT] IN C FDLSC_STM, FDLSC_STMCR, FDLSC_STMLF, FOLSC_UDF J) 410 
57 ) THEN 410 
458 411 
39 VERIFY_PROCESS := FALSE; ai) 
61 END; { EDFSK_RECORD_FORMAT } | aut 
8 EDFSK_TEST_PRIMARY : 411 
64 | 411 
65 BEGIN | 411 
66 | 411 
67 TEST. OBJECT _TYPE = PRI; 411 
68 TEST. PRIMARY = INPUT_VALUE: :PRIMARY_TYPE; | 412 
69 TEST. PRINUM = JNPUT"NUMBER; aig 
0 DEFAULT_PRINUM = INPUT"NUMBER; | 41 
71 ACTIVE_PRIMARY = TEST.PRIMAR | 412 
es DEFAULT PRIMARY = ACTIVE PRIMARY; 412 
a3 QTABLOTAB_OFFSET).DEFAULT = INPUT_QALUE; | re 
75 IF ( | 41 
7 (TEST.PRIMARY = AREA) 41 
7 OR 41 


Source Listing 
(TEST.PRIMARY = KEY) 
) THEN 


BEGIN 


S 


ooo 
Wr 


SSLEGR 


WIAA AAAI 


PUP PPPS AAAM MII 


MIPIM 4 = ee 


FUN SSRN RUN COMNOnE WO 


END { IF TRUE (TEST.PRIMARY 


WAWWINW AN AA AAA ANAA AAW 


DPD PVP SIPS SSI II 


IF TEST.PRINUM > 254 THEN 
VERIFY_PROCESS := FALSE; 
SCAN_DEFINITION (TRUE); 


IF ( 
(FOUND AREA) 

(TEST.PRIMARY = AREA) 
((TEST.PRINUM = HIGH_AREA) > 1) 
) THEN 


VERIFY_PROCESS := FALSE; 


IF ( 

(FOUND_KEY) 

(TEST.PRIMARY = KEY) 
((TEST.PRINUM = HIGH_KEY) > 1) 
) THEN 


VERIFY_PROCESS := FALSE; 


IF ( 
(NOT FOUND_AREA) 
(TEST.PRIMARY = AREA) 
AND 
(TEST.PRINUM > 0) 
) THEN 
VERIFY_PROCESS := FALSE; 


IF ( 

(NOT FOUND_KEY) 
(TEST.PRIMARY = KEY) 
(TEST.PRINUM > 0) 

) THEN 


VERIFY_PROCESS := FALSE; 


TEST. PRINUM := 0; 
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H 5 { + 418 
8 If_we're asking for only ones that exist, make sure this one does. | rat 
8 IF NOT FULL_CHOICE THEN 419 
; 9 419 
540 BEGIN 419 
541 419 
28 DEF _CURRENT := DEF _HEAD; 419 
54 419 
544 REPEAT 419 
545 | 419 
28 IF NOT CURRENT_EQ_TEST(TEST,FALSE) THEN e123 
548 INCR_ CURRENT; | i 
239 UNTIL (CURRENT_EQ_TEST(TEST,FALSE) OR (DEF_CURRENT*.FORE = NIL)); 630 
355 IF DEF_CURRENT <> NIL THEN 420 
3326 r 420 
3554 BEGIN 420 
3555 420 
228 IF NOT CURRENT_EQ_TEST(TEST, FALSE) THEN ro 
558 VERIFY_PROCESS := FALSE; 421 
559 421 
3560 END 421 
3561 421 
326¢ ELSE 4g] 
56 | 421 
564 VERIFY_PROCESS := FALSE; 421 
565 421 
566 END; re} 
567 421) 
3368 END; { EDFSK_TEST_PRIMARY } $33 
570 OTHERWISE 2 
571 2 
272 { NULL-STATEMENT } ; $ 
a7 END; { CASE } 
575 : | $ 
3576 END; { VERIFY_PROCESS } | § 
| 
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| 
13 { ++ 
580 POST_PROCESS == Routine to finish up a question. | 
266 This function does any calculations needed once a question is anwerred. | 
$84 CALLING SEQUENCE: 
586 status := POST_PROCESS; | 
+3 INPUT PARAMETERS: | 
250 none | 
591 | 
236 IMPLICIT INPUTS: 
59 
594 none 
595 
596 OUTPUT PARAMETERS: 
597 
598 none | 
a227 
600 IMPLICIT OUTPUTS: 
3601 
$008 none 
300 ROUTINES CALLED: 
3605 | 
3008 none 
se08 ROUTINE VALUE: | 
19 TRUE if we should continue, FALSE otherwise | 
12 SIGNALS: 
3613 
14 none 
615 
16 SIDE EFFECTS: 
17 
18 
19 -- } 
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Source Listing 
FUNCTION POST_PROCESS : BOOLEAN; 


VAR 
1 +: INTEGER; 
BEGIN 

{ + 

Assume success. 

FOST_PROCESS := TRUE; 

CASE QTAB_OFFSET OF 
{ + 
iy yee are boolean_answer questions. 
EDF SK_CONFIRM 
EDFSK-KEY_DUPS 
EDF SK-SEGMENTED, 
EDF $K_BLOCK_SPAN 
EDF $K-~GLOBAC_WANTED 
EDF $K-ASCENDING_LOAD, 
EDF SK_ASCENDING ADDED, 
EDF SK_KEY_COMP_QANTED, 
EDF $K_REC_COMP— WANTED, 
EDF $K_1DX_COMP_ WANTED 
BEGIN 

QUER 


BDATATOTAS.. OFFSET) 
END;  { BOOLEAN_ANSWER 


et 


{ + 
Generalized answer storage 
EDF SK _LOAD_METHOD 


K"G 
K-RESPONSES, 
K-KEY_TYP 

K~CARR_ CTRL: 


IDATACQTAB_OF FSET) 


(INPUT VALUE = EDFSK_YES); 
QUER 


Y_FLAG; 


for keyword answers. 


= INPUT_VALUE; 


+ 
Make the new default whatever the user answers. 


EDF $K _NUMBER_K 
EDF $K~ SURFACE POTION. 
EDFSK“BUCKET_QEIGHT : 


BEGIN 
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IDATACQTAB_OFFSETJ := INPUT VALUE; 
QTABCQTAB_OFFSET).DEFAULT = INPUT_VALUE; 


END; 
EDFSK_ANALYSIS : 
BEGIN 
ANALYSIS _FILENAME_D Est b og TR 
LIBSSCOPY_DxDx CSBAT ALEDF SK AA YSIS ANACYSIS _FILENAME_DESC); 
ANALYSIS "Specie led TRU 
END; 
EDFSK_SET_OUTPUT : 
BEGIN 
OUTPUT_F ILENAME_D NULL_STRING; 
LIBSSCOPY_DXDX TSASALEDF SK _OUTPUT TOUTPUT _F ILENAME_DESC); 
END; 
EDFSK_PROMPTING : 
BEGIN 
JDATACQTAB OFFSET := INPUT_VALUE 
FULL_PROMPT := (INPUT VVALUE = EDFSK_FULL); 
END; 
EDFSK_SCRIPT_OPTION : 
BEGIN 
1 IDATACQTAB_OFF SET) := INPUT_VALUE; 
1 ISAM_ORG = := INPUT -VALUE IN C EDFSK_IDX_DESIGN_FDL, 
1 EDFSK_ADD_KEY FDL, EDFSK DELETE _KEY_FDL 
1 EDF $K “REDESIGN. FOL, EDFSR_OPTIMIZE_FDL 4); 


END; { SCRIPT_OPTION } 


+ 
ages are the real_answer questions. 
DF $K_DATA_KEY_ COMP 
EDF $K-DATA-RECORD_COMP 
EDFSK~INDER_RECORD_COMP : 


BEGIN 
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ane sure we aren't fooled. 
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IF ABS CIDATACQTAB_OFFSETJ) > 99 THEN 
IDATACQTAB_OF FSETJ := 0; 


RDATALQTAB_OFFSET] := IDATACQTAB_O orrset?: 
RDATALQTAB_OFFSET] := RDATALQTAB_OFFSET) / 100.0; 


END; € EDFSK_DATA_KEY_COMP } 
EDFSK_RETURN : 
BEGIN 
IF NOT AUTO_TUNE THEN 
BEGIN 


{ + 
Now that he's answered, clear his screen. 
IF REGIS THEN 
WRITELN (°'(27)'Pp;S(E);"(27)'\"); 
LIBSERASE_PAGE (LINE_ONE,COL_ONE); 
END; { IF NOT AUTO_TUNE } 
END; { EDFSK_RETURN } 
EDFS$K_GLOBAL_COUNT : 
BEGIN 
{ + 
GLOBAL_SET is true if GLOBAL_COUNT is set from the 
definition Linked List. 
IF NOT GLOBAL_SET THEN 
BEGIN 
{ + 
See how many BR hyo. buffers would map the entire key 0 
e roots of all the alternate 


keys, plus 5 data buckets. (why 5? it sounds geod...) 
If a level has more than 512 buckets, only 512 are counted. 


(let® s not get ridiculous here) 
PRIMARY_INDEX_BUCKETS := 0; 
FOR I := 1 TO 31 DO 
BEGIN 
If INIT_PRIMARY_BUCKETS C1] > 512 THEN 


Source Listing 1$-$ep-198 99:38:99 DTSKSVMSMASTER:EEDF <SRCJEDFASK.PAS;1 (18) = 
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INIT_PRIMARY_BUCKETS C1] := 512; 
IF ADDED_PRIMARY_BUCKETS CI] > 512 THEN 
ADDED _PRIMARY_BUCKETS (1) := 512; 
PRIMARY_INDEX_BUCKETS := PRIMARY_INDEX BUCKETS 
+ INIT“PRIMARY BUCKETS C1 
+ ADDEB_PRIMARY_BUCKETS (1J; 


+ 


{ 
4 is added instead of 5 so we don't have to use 
C(idataledf$kK_number_keysJ-1) for the number of alternate keys. 


IDATACEDF $K_GLOBAL_COUNT) := PRIMARY _INDEX BUCKETS + 
IDATALCEDFSR_NUMBER_KEYS) + 4; 


Ue to an RMS maximum. 
IF IDATACEDFSK_GLOBAL_COUNT] > EDFSC_MAX_GBL_BUFS THEN 
IDATACEDF $K_GLOBAL_COUNT) := EDFSC_MAX_GBL_BUFS; 

END; { EDFSK_GLOBAL_COUNT } 
EDFSK_NUMBER_RECORDS : 

IDATACEDFSK_INITIAL_COUNT] := IDATACQTAB_OFFSETI; 
EDFSK_KEY_POSITION : 

SEGMENT_POSITIONCSEGMENT_NUMBER] := IDATACQTAB_OFFSET); 
EDFSK_KEY_SIZE : 
BEGIN 


ppt el Bella Gs on jel apt a := (IDATACEDFSK KEY Hei > 0); 
SEGMENT_LENGTHCSEGMENT_NUMBER] := IDATACQTAB_OFF SET); 


END; 
EDFSK_CONTROL_SIZE : 
CUR_MAX_REC := CUR_MAX_REC - IDATACQTAB_OFFSET); 
EDFSK_NUMBER_DUPS : 
IF IDATACQTAB_OFFSET] < 0 THEN 
IDATACQTAB_OF FSET) := 0; 
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EDFSK_PROLOGUE_VERSION : 


BEGIN | 
IF IDATACEDFSK_PROLOGUE VERSION] < 3 THEN | 
BEGIN | 

RDATALEDFSK_DATA_RECORD_COMP] := 0.0; 

RDATALEDF$K~DATA-KEY_ COMP = 0:9: 

RDATALEDFSK-INDER RECORD. COMP] := 0:0; 
END; 


* END; { EDFSK_PROLOGUE_VERSION } 


EDFS$K_KEY_LOW 

EDF $KADDED_COUNT 

EDFSK~ INITIAL YOURT OVbu. 
EDF$K~SIZE 
EDFSK FILL 


BEGIN 


IDATACEDF $K_Y_LOW] 


IDATACQTAB_O 
QTABCQTAB_OFFSET+1).LOW_BOUND 


IDATALQTAB_O 


~~ 


NT_HIGH 
_COUNT_HIGH : 


BEGIN 
IDATACEDF $K_Y_HIGH] := IDATACQTAB_OFFSET; 
CASE QTAB_OFFSET OF 
EDFSK_FILL_HIGH : SPREAD_LOW_HIGH (50,100); 
EDFSK_SIZE_HIGH : SPREAD_LOW_HIGH (1,CUR_MAX_REC); 
EDFSK_KEY_HIGH, | 
EDFSK~ADDED_COUNT_HIGH 
EDFSK-INITIAL_COURT_HIGH : SPREAD_LOW_HIGH (1,MAXINT-1); 
898 OTHERWISE 
0 { NULL-STATEMENT } ; 
¢ END; { CASE } 
END; 


k 13 | 
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906 EDFSK_DESIRED_FILL : 
908 IDATACEDF SK_FDL_FILLI := IDATACEDFSK_DESIRED_FILLT: 
EDFSK_CURRENT_FUNCTION : 
BEGIN 
IDATALQTAB_OFFSETJ := INPUT_VALUE; 


| 
} 
| 
| 
{ + 
Reset the script pointer (only auto-invoke on Ist entry). 
IDATACEDFSK_SCRIPT_OPTION] := EDFSK_ZERO_SCRIPT; 


{ + 
Reset the “Z flag. 
MAIN LEVEL 
END; { EDFSK_CURRENT_FUNCTION } 
EDFSK_RECORD_FORMAT : 
BEGIN 
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UMEWR —OVDOONOULS WO 


FALSE; 


Im 
NO 


WA 
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{ + 
-. IDATACEDFSK_RECORD_FORMAT] variable was set in VERIFY_PROCESS. 


35 

36 { + 

HH Set a convenience boolean. 
3 VARIABLE _RECORDS := ( 


C(IDATACEDFSK_RECORD_FORMAT] <> FDLSC_FIX) 


SESSsesy 
DONOUSWN—O”O 


CIDATACEDF SK RECORD FORMATS <> FDLSC_UDF) 


END; { EDFSK_RECORD_FORMAT } 
EDFSK_TEST_PRIMARY : 


949 BEGIN | 
951 IF ACTIVE_PRIMARY = AREA THEN 
| 
| 
} 
| 


RE 


95 ACTIVE_AREA := INPUT_NUMBER 
955 ELSE IF ACTIVE_PRIMARY = KEY THEN 

95 IDATACEDFSK_ACTIVE_KEY] := INPUT_NUMBER; 
959 END;  { EDFSK_TEST_PRIMARY } 

OTHERWISE 


“ 
13 | 

Source Listing i§-Se0-1964 9953883 PE sumsaaSTERY Pébr-sacJEDFASK.pAs:1 27%) 
{ NULL-STATEMENT } ; | 

END; { CASE > 
END;  { POST_PROCESS } 


SS 7 
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ROCESS 
VERIFY PROCESS 


9 { ++ | 
396 | 
da QUERY == Routine to control the asking of questions. 
a7 This function processes the QTAB table, and interacts with the user. | 
of? CALLING SEQUENCE: | 
1A status := QUERY (QTAB-OFFSET-VALUE); 

979 INPUT PARAMETERS: | 
38) 
4 none 
98 IMPLICIT INPUTS: 
984 
985 none 
986 
987 OUTPUT PARAMETERS: 
988 
989 none 
990 
rad! IMPLICIT OUTPUTS: 
99 SYSSOUTPUT: 
994 
1644 ROUTINES CALLED: 
997 waite =GUESTION 
998 vty i HELP 
999 
4000 
pes POST_PROCESS 
rest ROUTINE VALUE: 
rest TRUE if answer was yes, FALSE otherwise 
4007 SIGNALS: 
4008 
4009 none 
4010 
4011 SIDE EFFECTS: 
401 


--) 
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F04-000 Source Listing =3e0-19% 90538 Gs HRT SUMGMASTER  PEDF-GRCIEDFASK.PAS; 1° 490) | V 
4016 CGLOBAL] FUNCTION QUERY (OFFSET : INTEGER) : BOOLEAN; | : 
| 
4018 PROCEDURE THE_QUESTION; Q 
4020 BEGIN | 4 
6034 * ieee 
3 § Special for top level query. | 4 
40 ; IF QTAB_OFFSET = EDFSK_CURRENT_FUNCTION THEN 
49 f BEGIN 4 
4009 MAIN -LEVEL = TRUE; 4 
4030 MAIN-CTRLZ = FALSE; 4 
4031 CONTROL_2ZEE_TYPED := FALSE: 4 
1038 END;  { IF TRUE QTAB_OFFSET = EDFSK_CURRENT_FUNCTION } 
i c 
1038 pe to catch bad user input. 
4038 SYSSINPUT_ERROR := 
4039 ESTABLISH (SY SSINPUT AT OND _HANDLER) ; 
4041 IF NOT AUTO_TUNE THEN 
4065 BEGIN 
4045 IF TEMP_FULL_PROMPT THEN | 
4047 WRITE_HELP; | 
4049 WRITE_QUESTION; 
4050 
3 os 
4053 CASE QTABLQTAB_OFFSET].ANSWER_CLASS OF 
4055 STRING_ANSWER : 
4057 BEGIN 
4059 SDATALQTAB_OF FSET := NULL_STRING; | 
4061 IF ( | 
4065 (TAKE_DEFAULTS) 
4065 CIDATACEDFSK_RESPONSES] = EDF$K_AUTO) | 
toe? OR | 
068 (AUTO_ TUNE) 


6 
4069 ) THER 
BEGIN 
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4073 IF NOT AUTO_TUNE THEN | bs 
4074 4 
4075 LIBSWAIT (0.7); 4 
407 4 
407 END 4 
4078 4 
4079 ELSE & 
4080 4 
4081 BEGIN 4 
408 4 
408 IF EOF (INPUT) THEN 4 
4084 4 
4085 BEGIN 4 
4086 4 
4087 RESET (INPUT); 4 
4088 LIBSSIGNAL (EDF$_CTRLZ,0,0,0); ; 
4090 END; 4 
4091 4 
409¢ READLN (TEMP_STRING2SS); 4 
409 STRSTRIM (SDATALQTAB OFFSET], TEMP_STRING255); 4 
4094 LIBSSCOPY_DXDX (SDATACQTAB_OFFSETI, INPUT DESC); 4 
4095 PARAM_BLOCK.TPASL_TOKENPTR” := INPUT_DESC.DSCSA_POINTER: : UNSIGNED; 4 
4096 PARAM_BLOCK.TPASL_TOKENCNT := INPUT_DESC.DSCS$W_LENGTH; é 
4098 END; 4 
4099 4 
£100 IF NOT AUTO_TUNE THEN ‘ 
410 WRITELN (CRLF); 4 
410 4 
4104 { + 4 
4105 If we're journal ing our input, save a copy of it to the 4 
£106 journal file. 2 
4108 IF JOURNAL_ENABLED THEN ? 
4119 IF SDATACQTAB_OFFSET].DSC$W_LENGTH > 0 THEN é 
4112 WRITELN ( 4 
4113 JOURNAL _FILE 4 
4114 SDATALOTAB_OFFSET].DSC$A_POINTER*: 4 
4115 SDATACOTAB_OFFSETJ.0SCS$W_LENGTH r 
tis | 4 
4118 ELSE 4 
4119 
6120 WRITELN (JOURNAL_FILE); 
4132 END; { STRING_ANSWER } | 
4152 REAL_ANSWER, { Actually, real_answer = integer percentage } 
ot ? INTEGER_ANSWER : 
4127 BEGIN | 
4128 
4129 NUMBER_INPUT ( | 
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i 


IDATACQTAB_OFFSETI 
QTAB GTAB OFFSET) DEFAULT OK, 
QTABLOTAB"OFFSET].DEFAULT); 


{ + 
Max record size of 0 is one case where it's OK to 
sogessy an answer that's out of the low-high range. 


IF ( 
( 


N 
LIDATALEDFSR SCRIPT OPTIONS <> EDFSK_REL_DESIGN_FDL) 
(IDATACQTAB_OFFSETJ = 0) 


(BDATACEDF $K_SESMENTED) 
(SEGMENT NUMBER <> 0) 
COTAB_OFFSET = EDFSK_KEY_SIZE) 
CIDATACOTAB_OFFSETI = 0) 
) THEN | 
BEGIN | 
{ NULL-STATEMENT } ; | 
END | 
ELSE | 
| 
| 
| 
| 


1 
| 
| 
| 
| 
(QTAB_OFFSET = EDFSK_MAX_RECORD_SIZE) 


BEGIN 


IF ( 
(IDATACQTAB_OFFSET] < QTABCQTAB_OFFSET].LOW_BOUND) 
fa athlete > QTABCQTAB_OFFSET).HIGH_ BOUND) 


LIBSSIGNAL (EDFS$_BADVALUE,0,0,0); 
END; 
END; { REAL_ANSWER, INTEGER_ANSWER } 


BOOLEAN_ANSWER, 
KEYWORD_ANSWER : 
| 
| 


BEGIN 


PARSE_INPUT ( 
QTABLOTAB_OFFSET].KEY_TABLE, 


2090900 NN NN NNN NA AAAAAAAAOOMIIMNNNINNIUI BBE PPE PEPE 
SR SBN RNS S RNS AF WN MH OOWNOUR WN UO DONO ENN ODO VISWN—O 


BREE ER ARERR REE EERE 
ee ee ee ee ae ee ee ee ee ee 


oOo 
wn" 
‘> 


o 


OOOD00000 


Fay at at af of ot ot ot ot ot ot ot ot Se 
oooo co 
FAVLSSSLESLRLASLSSSS 


PMOPIPURIPORY 2 tt 2 2 2 2 ss 


oO 
“ 


POPOPOPUNININGPOPYNPIPYNPONIPPOPNofonofponoforofnofnorny 


WWII III RNIN PINININIIEDN 2 2 OS OS SS S| OOO 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
& 
4 
4 
4 
4 


Pt at ee mh 
Wwr—OO0@W 


Nm 


D 14 
16-Sep-1984 00:56:05 
Source Listing 37308713 4 99:38:93 
QTABCQTAB_OFFSET].STATE_TABLE, 
QTABLQTAB at -DEFAUCT_OK, 


QTABLQTAB-OF DEFAULTS; 
END; { BOOLEAN_ANSWER, KEYWORD_ANSWER } 
NO_ANSWER : 
BEGIN 


then the user just types <CR>, then accept anything. 
IF AUTO_TUNE THEN 
BEGIN 
{ NULL=STATEMENT } ; 
END 
ELSE 
BEGIN 
IF EOF (INPUT) THEN 
BEGIN 


tbts_ctRLZ,0,0,00: 
END; 
READLN; 
IF JOURNAL_ENABLED THEN 
WRITELN (JOURNAL_FILE); 
END; 
END; { NO_ANSWER } 
OBJECT_ANSWER : 
c V8.8, 3 3 
OTHERWISE 
{ NULL*STATEMENT } ; 
END; € CASE ) 


{ + 
Do some initial checking of the answer. 


4-277 P 8 
DF ..SRCJEDFASK.PAS;1 (36) : 


Source Listing 


IF NOT VERIFY_PROCESS THEN 
LIBSSIGNAL (EDF$_BADVALUE,0,0,0); 


{ + 

Make sure this is true for only one cycle. 
TEMP_FULL_PROMPT 
{ THE QUESTION } 


SooH9RE 99:48:05 


Atta’ Pibr or SRCJEDFASK «PAS; 1 pags, 5 


<m 
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vw? 
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Le 


BREE REPEL EEE 


MII 


BEGIN 


END; 


fake which question we're on widely known. 
QTAB_OFFSET := OFFSET; 

IF PRE_PROCESS THEN 

BEGIN 


bose at it until the user gets it right. 
REPEAT 
THE QUESTION; 
UNTIL NOT SYSSINPUT_ERROR; 
STRSFREE1_DX CINPUT_DESC); 
END; { IF TRUE PRE_PROCESS } 


{ + 
If this question has a valid answer, flag it so. 
IF POST_PROCESS THEN 

VDATACQTAB_OFF SET) := TRUE; 


{ + 

ag the output function value. 
QUERY := QUERY_FLAG; 

{ QUERY } 
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3 


is Es 
: 95 ASK_KEY_DUPS == Query the user. 

4 3 This routine asks the user if he wants duplicates on his key. 
: 38 If he does, then it asks him how many. 
: 4 CALLING SEQUENCE: 

4 0¢ ASK_KEY_DUPS; 

rt ie INPUT PARAMETERS: 

4305 

rh none 

4307 

rt re IMPLICIT INPUTS: 

4310 SYSSINPUT_ERROR 

rt HP SYSSINPUT: 

4318 OUTPUT PARAMETERS: 

HH sa 

rt HF 4 IMPLICIT OUTPUTS: 

4319 BDATACEDF $K_NUMBER_DUPS] 

ri BDATACEDFSK_KEY_DUPS) 

£356 ROUTINES CALLED: 

is a 

$358 ROUTINE VALUE: 

$358 none 

4380 SIGNALS: 

a 0 

rite SIDE EFFECTS: 

3 none 

4338 -- } 


16 
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4340 PROCEDURE ASK_KEY_DUPS; | 
o3ug BEGIN | 
43e4 IF QUERY (EDFSK_KEY_DUPS) THEN 
é ‘ QUERY (EDF$K_NUMBER_DUPS) 
4348 ELSE 
4350 IDATALEDF $K_NUMBER_DUPS] := 0; 
038) END;  € ASK_KEY_DUPS } 


— ’ 
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| 
54 be | 
2 § ASK_GLOBAL_WANTED == Query the user. 
4358 This routine asks the user if he wants Global Buffers, and if he does, then 
: 28 it asks him how many. 
? 1 CALLING SEQUENCE: | 
‘ ; ASK_GLOBAL_WANTED; 
: 5 INPUT PARAMETERS: 
4367 none 
RH | 
4369 IMPLICIT INPUTS: 
4370 
eee) SYSSINPUT_ERROR 
1358 OUTPUT PARAMETERS: 
4374 
4375 none 
4376 
re ie IMPLICIT OUTPUTS: 
4379 IDATACEDF $K_GLOBAL_ COUNT) 
ert BDATALEDF $K_GLOBAL_WANTEDJ 
eee ROUTINES CALLED: 
4384 QUERY (EDFSK_GLOBAL_WANTED) 
ht QUERY (EDF S$K_-GLOBAL_COUNT) 
4387 ROUTINE VALUE: 
4388 
4389 none 
4390 
4391 SIGNALS: 
439 
439 none 
4394 
4395 SIDE EFFECTS: 
4396 
4397 none 
4398 
4399 -- } 


EDF ASK 
104-000 Source Listing 


4401 PROCEDURE ASK_GLOBAL WANTED; 
440 BEGIN 


4 It’we want Global Buffers, see how many. 
4408 IF QUERY (EDFSK_GLOBAL_WANTED) THEN 
4410 QUERY (EDFSK_GLOBAL_COUNT) 

441 ELSE 

4414 IDATACEDF $K_GLOBAL_COUNT] 

END; { ASK_GLOBAL_WANTED } 
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{ +4 


ASK_KEY_COMP == Query the user. 


This routine asks the user if he wants key compression and if he does, then 


it finds out what the compression was. 
CALLING SEQUENCE: 

ASK_KEY_COMP; 

INPUT PARAMETERS: 

none 

IMPLICIT INPUTS: 

SYSSINPUT_ERROR 

OUTPUT PARAMETERS: 

none 

IMPLICIT OUTPUTS: 


RDATALEDF $K_DATA_KEY_COMP) 
BDATACEDF $K-KEY_COMP_WANTED] 


ROUTINES CALLED: 


QUERY (EDFSK_KEY_COMP_WANTED) 
QUERY (EDF SK DATA_KEY~COMP) 


ROUTINE VALUE: 
none 

SIGNALS: 

none 

SIDE EFFECTS: 
none 
ee } 


-277 Pa 39 
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4465 PROCEDURE ASK_KEY_COMP; 

446 BEGIN 


4469 { + 
4470 If_we want compression. See what it is. 


447 IF QUERY (EDFSK_KEY_COMP_WANTED) THEN 

4474 QUERY (EDFSK_DATA_KEY_COMP) 

447 ELSE 

4478 RDATACEDF$K_DATA_KEY_ COMP) := 0.0; 
END; { ASK_KEY_COMP } 
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v04- Source Listing ee 99: 38: % DI SKSVMSMASTERS EDF. SRCJEDFASK. PAS;1 (38) V 
448 { ++ 4 
tees 4 
tebe ASK_REC_COMP == Query the user. ‘ 
prey This routine asks the user if he wants record compression, and if he does, then 4 
pre 34 it finds out how much there is. 
4489 CALLING SEQUENCE: 4 
4490 4 
4491 ASK_REC_COMP; 2 
449 INPUT PARAMETERS: 5 
4494 5 
6495 none 5 
4496 3 
4497 IMPLICIT INPUTS: 5 
4498 5 
$099 SYSSINPUT_ERROR 2 
rest OUTPUT PARAMETERS: H 
450 none 5 
4504 5 
tee IMPLICIT OUTPUTS: 5 
4507 RDATAFEDE Sx _ DATA_RECORD_COMP] 5 
rise BDATALCEDFSK_ REC _COMP WANTED) 
reat ROUTINES CALLED: 
4512 QUERY (EDFSK_REC_COMP_WANTED) 
ri dt QUERY (EDFSK ~DATA_ RECORD_ COMP) 
4515 ROUTINE VALUE: 
4516 
4517 none 
4518 
4519 SIGNALS: 
4520 
4521 none 
£256 
452 SIDE EFFECTS: 
4524 
4525 none 
4526 
4527 -- } 
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Oe 000 Source Listing g- 900-1382 99:38:93 ST EKSUNGMASTER  FEGF -SRCIEDFASK.PAS;1 (35) 
$2 2 PROCEDURE ASK_REC_COMP; 
res 1 BEGIN 
45 ¢ 
45 { + 
$2 ¢ If we want compression. See what it is. 
t2 § IF QUERY (EDFSK_REC_COMP_WANTED) THEN 
45 8 QUERY (EDFSK_DATA_RECORD_COMP) 
ss an 
436 RDATACEDFSK_DATA_RECORD_COMP] = 0.0; 
454 END; { ASK_REC_COMP } 
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<m 


{ ++ 
ASK_IDX_COMP == Query the user. 


This routine asks the user if he wants index compression and if he does, then 
it finds out how much there is. 


Ft lee ee Sl 


46 

47 

48 

49 

550 

51 
ree CALLING SEQUENCE: 
4554 
4555 ASK_IDX_COMP; 
t229 
4557 INPUT PARAMETERS: 
cee8 
455 none 
4560 
4561 IMPLICIT INPUTS: 
1285 
seni SYSSINPUT_ERROR 
4565 OUTPUT PARAMETERS: 
4566 
4567 none 
4568 
1292 IMPLICIT OUTPUTS: 
4571 RDATACEDF$K_INDEX_RECORD_ COMP) 
$el6 BDATACEDF $K_IDX_COMP_WANTED) 
sete ROUTINES CALLED: 
4576 QUERY (EDFSK_IDX_COMP_WANTED) 
$277 QUERY (EDFSK_INDEX_RECTORD_COMP) 
4579 ROUTINE VALUE: 
4580 
4581 none 
t25¢ 
458 SIGNALS: 
4584 
4585 none 
4586 
4587 SIDE EFFECTS: 
4588 
4589 none 
4590 
4591 -- } 
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Source Listing 
PROCEDURE ASK_IDX_COMP; 
BEGIN 


Hos want compression. See what it is. 
IF QUERY (EDFSK_IDX_COMP_WANTED) THEN 
QUERY (EDFSK_INDEX_RECORD_COMP) 
ELSE 
RDATACEDFSK_INDEX_RECORD_COMP] := 0.0; 
END; { ASK_IDX_COMP } 
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| 
4610 { ++ | ; 
4611 1 
461 ASK_MEAN_RECORD_SIZE == Query the user. ' 
red] This routine asks about the user's record size. (plus max_rec, and control_size) | H 
red CALLING SEQUENCE: 3) 
rod ASK_MEAN_RECORD_SIZE; 1 
4631 INPUT PARAMETERS: 2] 
46 ¢ none 2} 
46 51 
re ¢ IMPLICIT INPUTS: 2] 
re $ SYSSINPUT_ERROR ra 
re S OUTPUT PARAMETERS: 2] 
4630 none 51 
4631 51 
ret: IMPLICIT OUTPUTS: 31 
4634 IDATACEDF $K_MEAN_RECORD_SIZEJ 51 
see? SYSSINPUT_ERROR | 21 
4637 ROUTINES CALLED: | 51 
4638 51 
4639 ESTABLISH 51 
4640 51 
4641 ROUTINE VALUE: 51 
464 51 
464 none 51 
4644 51 
4645 SIGNALS: 51 
4646 51 
4647 none 51 
4648 51 
4649 SIDE EFFECTS: 51 
4650 51 
4651 none 51 
465 | 2 
i aa |i 
H 
| if 
coal 
| H 
| H 
| 3 

| 


EDT ASK, eon ro rfBep-1986 00:56:05 vaya 


4655 PROCEDURE ASK_MEAN_RECORD_SIZE; 
46 ; BEGIN 


“11 P 
$VMSh 


{ + 
4660 This question shouldn't be asked for alternate keys. Unless redesigning, 
4661 + we don't already have a value for it. 
IF ¢ 
4664 (NOT ISAM_ORG) 
re (ISAM_ORG AND (IDATACEDFSK_ACTIVE_KEY] = 0)) 
4668 sOPT  NOATALEDFOR REAN_RECORD SIZED) 


4671 BEGIN 


{ + 
4674 Ask the question we're here for. 
4676 QUERY (EDFSK_MEAN_RECORD_SIZE); 


4679 het (or set) the other record size parameter. 

teat THE CONTROL SIZE QUESTION MUST CCME BEFORE THE MAX_RECORD_SIZE 
4682 QUESTION! 

4685 TF IDATACEDFSK -RECORD_FORMAT] = FOLSC_VFC THEN 

4689 QUERY (EDFSK_CONTROL_SIZE); 

1689 IF VARIABLE_RECORDS THEN 

2691 QUERY (EDFSK_MAX_RECORD_SIZE) 

469 ELSE 

4695 IDATACEDFS$K_MAX_RECORD_SIZE] := IDATACEDFSK_MEAN_RECORD_SIZEJ; 
rhe END; 

END; 


{ ASK_MEAN_RECORD_SIZE } 
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04-000 Source Listing eer yi 99:38:93 DISKSVMSRASTER: LEDF<SRCIEDFASK.PAS; 1 (34) | 
4701 { ++ 


470 | 
or? ASK_KEY_SIZE == Query the user. | 
$709 This routine asks about the user's key size. | 
4707 CALLING SEQUENCE: 
4708 

4709 ASK_KEY_SIZE; 

4710 

4711 INPUT PARAMETERS: 

ar 

471 none 

4714 

4715 IMPLICIT INPUTS: 

4716 

rat 4 SYSSINPUT_ERROR 

4719 OUTPUT PARAMETERS: 

4720 

4721 none 

t25§ 

rik IMPLICIT OUTPUTS: 

4725 IDATACEDFSK_KEY_ SIZE) 

4726 SEGMENT _LENGTHCO..7) 

tise SYSSINPOT_ERROR 

1782 ROUTINES CALLED: 

4730 

4731 ESTABLISH 

ores 

473 ROUTINE VALUE: 

4734 

4735 none 

4736 

4737 SIGNALS: 

4738 

4739 none 

4740 

4741 SIDE EFFECTS: 

474 

474 none 

4744 

4745 -- } 
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v04-000 Source Listing 
4747 PROCEDURE ASK_KEY_SIZE; 
474 VAR 


4750 1: INTEGER; 

4751 

49¢ BEGIN 

4794 IF BDATACEDFSK_SEGMENTED] THEN 

4796 BEGIN 

475 

4738 SEGMENT_NUMBER := 0; 

4759 

4760 REPEAT 

4761 

476 QUERY (EDFSK_KEY_SIZE); 

4764 SEGMENT _NUMBER = SEGMENT_NUMBER + 1; 
4766 UNTIL (IDATACEDFSK_KEY_SIZE] = 0) OR (SEGMENT_NUMBER > 7); 
4768 If IDATACEDFSK_KEY_SIZE] = 0 THEN 

4770 BEGIN 

4771 

477 FOR I := SEGMENT_NUMBER TO 7 DO 

4774 SEGMENT_WANTEDCIJ := FALSE; 
4775 

4776 END; 

4777 

4778 IDATACEDFSK_KEY_SIZE] | := SEGMENT_LENGTHCO); 
4780 END 

4781 

478 ELSE 

478 

4784 QUERY (EDFSK_KEY_SIZE); 


END; 


{ ASK_KEY_SIZE } 
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4788 { ++ 

4790 ASK_KEY_POSITION == Query the user. 


| 
| : 
‘ 
479) 2: 
ry This routine asks about the user's key position. 2: 
4294 CALLING SEQUENCE: | 3 
4796 ASK_KEY_POSITION; | 2 
4798 INPUT PARAMETERS: 5) 
4799 2: 
4800 none : 
4801 5: 
480 IMPLICIT INPUTS: 2 
re tits SYSSINPUT_ERROR 2: 
4806 OUTPUT PARAMETERS: 5' 
4807 5: 
4808 none 5: 
4809 é: 
re tt IMPLICIT OUTPUTS: 2: 
ret IDATACEDFS$K_KEY_POSITION) 5: 
481 SEGMENT POSTTIONCO..7] | 5. 
4814 SYSSINPOT ERR on - 
4815 5: 
4816 ROUTINES CALLED: 5: 
4817 5! 
4818 ESTABLISH 2; 
4819 5: 
4820 ROUTINE VALUE: 5: 
4821 5: 
482 none 5! 
482 5: 
4824 SIGNALS: 5! 
4825 5: 
4826 none 5: 
4827 5: 
4828 SIDE EFFECTS: 2 
48¢9 
4 none : 
4831 | 
| ik 
| | 
| { 
| 
| 4 
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Source Listing ifete att d 99: 38: %3 


PROCEDURE ASK_KEY_POSITION; 
BEGIN 
IF BDATALEDFSK_SEGMENTED] THEN 
BEGIN 
FOR SEGMENT_NUMBER := 0 TO 7 DO 
BEGIN 
IF SEGMENT_WANTEDCSEGMENT_NUMBER] THEN 
QUERY (EDFSK_KEY_POSITION); 
END; 
IDATALEDF$K_KEY_POSITION] 
END 
ELSE 
QUERY (EDFSK_KEY_POSITION); 
END;  { ASK_KEY_POSITION } 
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: § { +4 

Z ¢ ASK_TEST_SECONDARY == Get the user's choice of secondary. 
4 This routine queries the user. 
tBe? . 
rere CALLING SEQUENCE: 
re fA ASK_TEST_SECONDARY 
ret INPUT PARAMETERS: 
4874 none 

4875 

4876 IMPLICIT INPUTS: 
4877 

4878 CRLF 

4879 TAB 

4880 pret rees <ERROR 
ret: SYSSINP 

488 OUTPUT PARAMETERS: 
4884 

4885 none 

rey 

488 IMPLICIT OUTPUTS: 
4888 

4889 SYSSOUTPUT: 

4890 i 
re 24 ROUTINES CALLED: 
489 ESTABLISH 

4894 

4895 ROUTINE VALUE: 
4896 

4897 none 

4898 

4899 SIGNALS: 

4900 

4901 none 

490 

490 SIDE EFFECTS: 

4904 

4905 none 

4906 

4907 oo > 
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1308 PROCEDURE ASK_TEST_SECONDARY; 

re at PROCEDURE THE_QUESTION; 

1318 BEGIN 

4914 

4915 { + 

red | Set up to catch bad user input. 

4918 EDFSGL SECNUM = := 0; 

4919 SYSSINPUT_ERROR := FALS 

$3 ESTABLISH (SYSSINPUT_ 

rt § CASE ACTIVE_PRIMARY OF 

4924 IDENT : 

4925 

1358 INPUT _VALUE := 0; € DUMMY_SECONDARYS } 
138 TITLE : 

4930 INPUT_VALUE := 0;  {€ DUMMY_SECONDARYS } 
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{ + 
4988 Setup to display definition on the terminal. 


E 

\ 

49 $ ACCESS : ‘ 
49 é 
49 BEGIN § 
4935 | 
49 IF FULL_CHOICE THEN ‘ 
4938 BEGIN § 
4939 ‘ 
4940 CLEAR (IF_FULL_PROMPT) ; ‘ 
rh IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN ; 
4944 BEGIN § 
4945 § 
4946 WRITELN (SHIFT, " * ,ANSI_REVERSE, § 
4947 * Legal ACCESS" ,SEC_ATTR, “ 
4948 ANSI_RESET, CRLF, 4 
4949 CRLF in 4 
4950 "BLOCK yes/no’, ‘ 
4951 CRLF SAIFT, | 
495 "DELETE yes/no’, § 
495 CRLF SHIFT. | 
4954 "GET™ yes/no’, ‘ 
4955 CRLF _SHIFT, | 
4956 *PUT yes/no’, | 
4957 CRLF SHIFT, | 
4958 *RECORD_10 yes/no’, § 
4959 CRLF_SHIFT, 4 
"TRUNCATE yes/no’, § 

4961 CRLF_SHIFT, | 
496 "UPDATE yes/no’, § 
aoe; CRLF); d 
rts END { IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } P 
4967 ELSE § 
4968 § 
4969 WRITELN (SHIFT,QUES_HINT); § 
4970 ‘ 
4971 END § 
497 4 
497 ELSE >| 
4974 i 
4975 BEGIN ‘ 
4976 | 
rp ies CLEAR (IF _FULL_PROMPT); | i 
sah IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN | i 
4981 BEGIN | | 
498 WRITELN (SHIFT," * ,ANSI_REVERSE, 
4984 Current ACCESS’, SEC_ATTR, 
res Hi ANSI_RESET,CRLF); i 
498 
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4989 
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OPEN _CFDL_DEST, SVSSOUTPUT NAME ,NEW, 
RECORD LENGTH := 2527; 
REWRITE (FOL "DEST? : 
SHOW_PRIMARY_SECTION (TEST); 
CLOSE (FDL_DEST); 
END { IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } 
ELSE 
WRITELN (SHIFT,QUES_HINT); 
END;  { EXTANT_ONLY } 


WRITE it La nter ACCESS attribute (Keyword)', 
ANSI_REVERS *C-]" ,ANSI_RESET,° : 


PARSE_INPUT 
IADDRESS (EDFSAB_ACCESS_TABLE_KEY), 
JADDRESS (EDFSAB_ACCESS_TABLE_STA), 


VAX= 
SK 


; 
END; { ACCESS } 
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15 
Source Listing 
(* Here starts the comment to exclude ACLS *) 
(* ACL : 


Sep-19 


BEGIN 
IF FULL_CHOICE THEN 
BEGIN 
CLEAR (IF_FULL PROMPT); 
IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 
BEGIN 
WRITELN (SHIFT," * ,ANSI_REVERSE, 


Legal ACL',SEC_ATTR, 
ANS! RESET. CRLF, 


CRLF-SHI 
"ENTRY 
re CRLF); 
- END*){ IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } 
ELSE 
WRITELN (SHIFT,QUES_HINT); 


string’, 


END 
ELSE 
BEGIN 
CLEAR (IF_FULL_PROMPT); 
IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 
BEGIN 
WRITELN (SHIFT,° * ,ANSI_REVERSE, 
* Current ACL" ,SEC_ATTR, 
ANSI_RESET, CRLF); 
*) 
{ + 
Setup to display definition on the terminal. 
(* OPEN (FOL Pest -SyssouTeyy NAME ,NEW, 
a LENGTH := 252); 
REWRITE (FOL_DEST); 
SHOW_PRIMARY_SECTION (TEST); 
CLOSE (FDL_DEST); 


(* END*){ IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } 
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cli ea rB-Sep-1986 00:56:05 VANGIT Bascal VE.4=277 ee oye PHBE, 
, ELSE 
4 WRITELN (SHIFT ,QUES_HINT); 
07 END;*) { EXTANT_ONLY } 
a73 erat ce 
081 THIS CAN BE OPTIMIZED IN THE FUTURE = GIVEN THAT THE ACL PRIMARY HAS ONLY 
en56 ONE KIND OF SECONDARY: “ENTRY 
5084 = WRITE (SHIFT ACL Attribut (K d)' 
° nter |. , e e or ° 
5086 ANSI_REVERSE fe 5 AN SI_RESET,* . 7s te 
5087 PARSE_INPUT ( 
5088 IADDRESS (EDFSAB_ACL_TABLE_KEY), 
5089 IADDRESS (EDFSAB~ACL-TABLE-STA), 
5090 FALSE, 
5091 0 
o088 ds 
509 
5094 END; *) { ACL } 
5095 
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$034 ANALYSIS_OF_AREA : 
099 INPUT _VALUE := 0;  € DUMMY_SECONDARYS } 
sit ANALYSIS_OF_KEY : 
2108 INPUT _VALUE := 0;  € DUMMY_SECONDARYS } 
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$105 AREA : 

106 

107 BEGIN 

108 

109 IF FULL CHOICE THEN 
5110 
111 BEGIN 
s118 CLEAR (IF_FULL_PROMPT); 
3116 IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 

117 BEGIN 
5118 
5119 WRITELN (SHIFT," " ANSI_REVERSE 
3120 set al AREA "ACTIVE _AREA:NUM_LEN(ACTIVE_AREAS, 
3122 ANST_RESET,CRLF, 
512 CRLF SHIFT, 
5124 "ALLOCATION number', 
5125 CRLF_SHIFT, 
5126 "BEST_TRY_CONTIGUOUS yes/no’, 
5127 CRLF_SHIFT 
5128 "BUCRET SIZE number’, 
3129 CRLF_SHTFT 
5130 "CONTIGUOUS yes/no’, 
5131 CRLF_SHIFT 
5132 "EXACT POSITIONING yes/no’, 
5133 CRLF_SAIFT, 
5134 "EXTENSION number', 
5135 CRLF_SHIFT, 
5136 *POSTTION qualifier number’, 
5137 CRLF SHIFT, 
5138 *VOLOME number’, 
ake 4 CRLF); 
2141 END { IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } 
2128 ELSE 
5144 
5145 WRITELN (SHIFT, QUES_HINT); 
5146 
5147 END 
2148 

149 ELSE 
3130 

151 BEGIN 
HH 

133 CLEAR (IF_FULL_PROMPT); 

3155 IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 

3137 BEGIN 

2185 WRITELN (SHIFT," * ANSI_REVERSE, 
3109 " Current AREA ‘, 

161 ACTIVE_AREA:NUM_LEN(ACTIVE_AREA) , 


oOo 
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& 


SEC_ATTR 
ANST_RESET, CRLF); 


{ + 
Setup to display definition on the terminal. 
OPEN (FOL pest astevow oul NAME ,NEW, 
LENGTH := 252); 
REWRITE (FOL_DEST); 
SHOW_PRIMARY_SECTION (TEST); 
CLOSE (FOL_DEST); 
END { IF FULL PROMPT OR TEMP_FULL_PROMPT TRUE } 
ELSE 
WRITELN (SHIFT,QUES_HINT); 
END; { EXTANT_ONLY } 
WRITE (SHIFT,"Enter AREA *,ACTIVE_AREA:NUM_LEN(ACTIVE_AREA), 
* attribute Rexyet v 
ANSI_REVERSE,'C-J",ANSI_RESET," : ‘); 
PARSE_INPUT ( 
IADDRESS (EDFSAB_AREA_TABLE_KEY), 
ot ms (EDFSAB_AREA_TABLE_STA), 


; 
END; { AREA } 


DVPVPVDV IUSPUSVSUSU USSSA SVS SISSON «| Tl 
AO 
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1 CONNECT : 
3137 
198 BEGIN 
5199 
5 90 IF FULL_CHOICE THEN 
2 0¢ BEGIN 
520 
2 0% CLEAR (IF_FULL_PROMPT); 
5 06 IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 
2 08 BEGIN 
2502 
210 WRITELN (SHIFT,° " ANSI_REVERSE, 
5211 * Legal CONNECT’ ,SEC_ATTR, 
5 ig ANSI_RESET,CRLF, 
521 CRLF SHIFT 
5214 * ASYNCHRONOUS yes/no NOLOCK yes/no’, 
5215 RLF_SHIFT, 
5216 "BLOCK 10 yes/no NONEXISTENT_RECORD yes/no’, 
5217 CRLF _SRIFT, 
5218 *BUCRET_CODE number READ_AHEAD yes/no’, 
5219 CRLF_SHIFT, 
5220 * CONTEXT number READ_REGARDLESS yes/no’, 
5221 CRLF_SHIFT, 
5222 "END-OF FILE yes/no TIMEOUT_ENABLE yes/no’, 
5223 CRLF SHIFT 
5224 "FAST DELETE yes/no TIMEOUT_PERIOD number’, 
5225 CRLF_SHI 
5226 "FILC BUCKETS yes/no TRUNCATE_ON_PUT yes/no’, 
3687 CRLF_SHIFT 
5228 *KEY-GREATER_EQUAL yes/no TT_CANCEL_CONTROL_O yes/no’, 
5229 CRLF SHI 
2230 *KEY-GREATER_THAN yes/no TT_PROMPT yes/no’, 
5231 CRLF-SHIFT, 
2536 *KEY_LIMIT yes/no TT_PURGE_TYPE_AHEAD yes/no’, 
523 CRLF~SHIFT 
5234 "KEY"OF REFERENCE number TT_READ_NOECHO yes/no’, 
5235 CRLF-SHTFT, 
5236 "LOCATE _MODE yes/no TT_READ_NOFILTER yes/no’, 
5237 CRLF_SHTFT 
5238 *LOCR_ON_READ yes/no TT_UPCASE_INPUT yes/no’, 
2522 CRLF _SHIF 
3240 “LOCR ON WRITE yes/no UPDATE_IF yes/no’, 
2566 "MANDAL _UNLOCKING yes/no WAIT_FOR_RECORD yes/no’, 
234 CRLF_SHTFT, 
244 *MULTIBLOCK_COUNT number WRITE_BEHIND yes/no’, 
3245 CRLF_SHI 
46 *MULTIBUFFER_COUNT number’, 
47 CRLF 
28 ); 
30 END { IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } 
358) ELSE 
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3 

H 56 WRITELN (SHIFT,QUES_HINT); 
56 END 
57 
58 ELSE 
59 
re BEGIN 
62 CLEAR (IF _FULL_PROMPT) ; 

IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 

BEGIN 

WRITELN (SHIFT,° * ,ANSI_REVERSE, 


" Current CONNECT',SEC_ATTR, 
ANSI_RESET,CRLF); 
{ + 
Setup to display definition on the terminal. 
OPEN (FDL_DEST,SYSSOUTPUT_NAME ,NEW, 
RECORD_LENGTH := 252); 
REWRITE (FDL_DEST); 
SHOW_PRIMARY_SECTION (TEST); 
CLOSE (FDL_DEST); 
END { IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } 
ELSE 
WRITELN (SHIFT,QUES_HINT); 
END; { EXTANT_ONLY } 
WRITE (SHIFT,*Enter CONNECT Attribute (Keyword)', 
ANSI_REVERSE,'C-J",ANSI_RESET," : '); 
PARSE_INPUT ( 


IADDRESS (EDFSAB_CONNECT_TABLE_KEY), 
TADDRESS (EDF SAB_CONNECT TABLE STA) , 


RN ER ghee yale ae Mrororoferoerrornor 
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); 
END; { CONNECT } 
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DATE : 
BEGIN 
IF FULL_CHOICE THEN 
BEGIN 
CLEAR (CIF _FULL_PROMPT); 
IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 
BEGIN 
WRITELN (SHIFT,' * ,ANSI_REVERSE, 
" Legal DATE’, SEC_ATTR, 
ANSI_RESET,CRLF, 
CRLF_SHIFT, 
*BACRUP string’, 
CRLF _SHIFT, 
"CREATION string’, 
CRLF _SHIFT, 
"EXPIRATION string’, 
CRLF _SHIFT, 
"REVISION string’, 
LF); 
END { IF FULL PROMPT OR TEMP_FULL_PROMPT TRUE } 
ELSE 
WRITELN (SHIFT, QUES_HINT); 
END 
ELSE 
BEGIN 


CLEAR (IF _FULL_PROMPT); 
IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 
BEGIN 
WRITELN (SHIFT ," * ,ANSI_REVERSE, 
* Current DATE’ ,SEC_ATTR, 
ANSI_RESET,CRLFS; 
{ + 
Setup to display definition on the terminal. 
OPEN (FDL_DEST,SYSSOUTPUT_NAME ,NEW, 
RECORD_LENGTH := 252); 
REWRITE (FOL_DEST); 


SHOW_PRIMARY_ SECTION (TEST); 
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5 
CLOSE (FDL_DEST); 


END { IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } 
ELSE 
WRITELN (SHIFT,QUES_HINT); 
END;  { EXTANT_ONLY } 


WRITE (SHIFT, pager DATE Attribute (Keyword)', 
ANSI ght ee ANSI_RESET,' : '); 


PARSE_] 
Soca (EDFSAB_DATE_TABLE_KEY) d 
papgness (EDF $AB_DATE_TABLE_STA) 


WhO” 


SNS 
ONOULSWIN—O 


); 
END; { DATE } 
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81 FILES : 

i 

2 8 BEGIN 

2 85 IF FULL_CHOICE THEN 

& 4 BEGIN 

3385 CLEAR (IF_FULL_PROMPT); 

+ IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 

9 BEGIN 

ie WRITELN (SHIFT,' * ANSI_REVERSE 

2332 * Legal FILE’, SEC ANGES : 

5397 ANSI_RESET, CRLF ,C kati! Murr, 

5398 "ALLOCATION number MT_PROTECTION char/num', 

5399 CRLF SHIFT 

5400 "BEST _TRY_CONTIGUOUS yes/no NAME string’, 

5401 CRLF_SHIFT 

540 "BUCRET SIZE number NOBACKUP yes/no’, 

540 CRLF_SHTFT 

5404 "CLUSTER SIZE number NON_FILE_STRUCTURED yes/no’, 

5405 CRLF_SHIFT, 

5406 *CONTEXT number ORGANIZATION keyword’, 
5407 CRLF_SHIFT 
5408 * CONTIGUOUS yes/no OUTPUT_FILE_PARSE yes/no’, 

5409 CRLF_SHIFT, } 
5410 *CREATE_IF yes/no OWNER vic’, 
5411 CRLF_SHIFT, 
oei¢ ee ee string PRINT_ON_CLOSE yes/no’, 
seid ‘DEFERRED WRITE yes/no PROTECTION yes/no’, 
5416 "DELETE_ON. CLOSE yes/no READ_CHECK yes/no’, 
5417 CRLF_SHTFT. 
5418 “DIRECTORY ENTRY yes/no REVISION number’, 
5419 CRLF_SHIFT; 

2050 oer ieess SION number SEQUENTIAL_ONLY yes/no’, 

3428 ‘GLOBAL BUFFER COUNT number SUBMIT_ON_CLOSE yes/no’, 

3038 imAX “RECORD _NUMBER number SUPERSEDE yes/no’, 

34 6 RAXTRIZE VERSION yes/no TEMPORARY yes/no’, 

34 8 “AT BLOCK §12€ number TRUNCATE_ON_CLOSE yes/no’, 

486 iat CLOSE REWIND yes/no USER_FILE_OPEN yes/no’, 
503 CRUSH POSITION yes/no WINDOW_SIZE number’, 

kT tT ROT EOF yes/no WRITE_CHECK yes/no’, 

435 CRLF 

436 ; 

437 


Se 


" Current FILE’ ,SEC_ATTR, 
ANSI_RESET, CRLF); 
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at38 END { IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } 
5440 ELSE 
5441 
rrr WRITELN (SHIFT,QUES_HINT); 
5444 END 
rik ELSE 
5447 
5448 BEGIN 
5449 
ae20 CLEAR (IF _FULL_PROMPT); 
2726 IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 
5454 BEGIN 
5455 
5456 WRITELN (SHIFT,' * ,ANSI_REVERSE, 
5457 
sees 


5460 : { + 
rok Setup to display definition on the terminal. 


546 OPEN (FDL_DEST,SYSSOUTPUT_NAME ,NEW, 

64 RECORD LENGTH := 252); 
ate? REWRITE (FOL_DEST); 
3467 SHOW_PRIMARY_SECTION (TEST); 
5469 CLOSE (FDL_DEST); 
5471 END { IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } 
547 ELSE 
5475 WRITELN (SHIFT,QUES_HINT); 
5477 END; € EXTANT_ONLY } 
5479 WRITE (SHIFT,*Enter FILE Attribute (Keyword)', 
480 ANSI_REVERSE,"C-J" ,ANSI_RESET," : '); 

481 PARSE_INPUT ( 

48 IADDRESS (EDFSAB_FILE_TABLE_KEY), 
548 IADDRESS (EDFSAB_FILE_TABLE_STA), 

aaa 

5486 ); 
5488 END; { FILE } 
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res JOURNAL : 
248 BEGIN 
13¢ IF FULL_CHOICE THEN 
rey BEGIN 
2498 CLEAR (IF_FULL_PROMPT) ; 
2200 IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 
$500 BEGIN 
5504 WRITELN (SHIFT,° * ,ANSI_REVERSE, 
5505 * Legal JOURNAL’,SEC_ATTR, 
5506 ANSI_RESET,CRLF, 
5507 CRLF _ SHIFT 
5508 "AFTER IMAGE yes/no’, 
5509 CRLF_SRIFT 
5510 "AFTER NAME string’, 
5511 CRLF_SAIFT 
221¢ "AUDTT TRAIL yes/no’, 
551 CRLF_SAIFT 
5514 ‘AUDTT_NAME string’, 
5515 CRLF_SAIFT, 
5516 "BEFORE_IMAGE yes/no’, 
5517 RLF_SHIFT, 
5518 "BEF ORE_NAME string’, 
5519 RLF_SHIFT, 
5520 *RECOVERY_UNIT keyword’, 
225) CRLF); 
2282 END { IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } 
i us 
3260 BEGIN 
3599 WRITELN (SHIFT,QUES_HINT); 
55 
5531 END; 
ih = 
5534 
2232 ELSE 
3337 BEGIN 
BE CLEAR (1F_FULL_PROMPT); 
30) IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 
i BEGIN 
545 WRITELN (SHIFT,'° * ,ANSI_REVERSE, 
5546 * Current JOURNAL’ ,SEC_ATTR, 
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ANSI_RESET, CRLF); 


{ + 
Setup to display definition on the terminal. 
OPEN (FDL_DEST, ey eeu EUS yh NAME ,NEW, 
CORD LENGTH 
REWRITE (FDL_DEST); 
SHOW_PRIMARY_SECTION (TEST); 
CLOSE (FDL_DEST); 


END { IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } 


SFUPVSVIVSVSVSVSVSISISISIISIST 


2 ° ELSE 

2 ee WRITELN (SHIFT,QUES_HINT); 

2 68 END; { EXTANT_ONLY } 

5568 WRITE (SHIFT, Enger Serre hee (Keyword)', 
5569 ANSI_REVER se," -]' ,ANSI_R *): 

5570 PARSE_I INPUT 

5571 S oana (EDF S$AB_JOURNAL_TABLE_KEY) 
5 78 IADDRESS (EDFSAB_JOURNAL_TABLE_ STA) 
557 FALSE, 

5574 

5575 

5576 

5577 END; { JOURNAL } 
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KEY : 
BEGIN 
IF FULL CHOICE THEN 
BEGIN 

CLEAR (IF FULL_PROMPT); 

IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 

BEGIN 


WRITELN (SHIFT,° * ,ANSI_REVERSE, 


Legal KEY’, 
IDAT FEOF SK ACTIVE KEVI:5. 


1 Pascal V 118 
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* CHANGES yes/no LEVEL1_INDEX_AREA number', 
CRLF_SHIFT, 
*DATA_AREA number NAME string’, 
CRLF_SHIFT, 
*DATA_FILL number NULL_KEY yes/no’, 
CRLF_SHIFT, 
iDATA.KEY, COMPRESSION yes/no NULL_VALUE char/num', 
:DATR RECORD_ COMPRESSION yes/no POSITION number’, 
"DUPLICATES yes/no PROLOG number', 
CRLF_SHIFT, 
* INDEX ARE number TYPE keyword’, 
CRLF_SRIFT 
;ANDEX, COMPRESSION yes/no SEGn_LENGTH number’, 
"INDEX FILL number SEGn_POSITION number’, 
CRLF _SRIFT, 
*LENGTH number '{ SEGn_TYPE keyword), 
CRLF); 
END { IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } 
ELSE 
WRITELN (SHIFT,QUES_HINT); 
END 
ELSE 
BEGIN 


CLEAR (IF _FULL_PROMPT); 
IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 
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BEGIN 
WRITELN (SHIFT," " ,ANSI_REVERSE, 
* Current KEY‘ 
IDATALEDFSK_ACTIVE_KEY]:3, 
SEC_ATTR 
ANST_RESET, CRLF); 


23 


<m 


AAAS 
BOGS 


ao to display definition on the terminal. 
OPEN acPt rise bee 
REWRITE (FOL_DEST); 
SHOW_PRIMARY_SECTION (TEST); 
CLOSE (FDL_DEST); 
END { IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } 
ELSE 
WRITELN (SHIFT,QUES_HINT); 
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eet END { EXTANT_O > 
: ONLY 
668 $ 
66 WRITE (SHIFT,*Enter KEY’ 2 
664 IDATACEDF $K_ACTIVE_KEY]:3, 
665 * Attribute TY a Neel 
666 ANSI_REVERSE,"C-J',ANSI_RESET,' : °); 
667 PARSE_INPUT ( 
668 IADDRESS (EDFSAB_KEY_TABLE_KEY), 
669 IADDRESS (EDFSAB_KEY_TABLE_STA), 
670 FALSE, 
i 
2678 
5674 END; { KEY } 
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Setup to display definition on the terminal. 
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67 RECORDS : | 4 
i sci ei 
6 628 
6 IF FULL_CHOICE THEN 6 
68 BEGIN 625 
68 625 
684 CLEAR (IF_FULL_PROMPT); iy 6 ; 
686 IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 625 
Het BEGIN g 5 
689 625 
690 WRITELN (SHIFT," " ,ANSI_REVERSE, 625 
5691 " Legal RECORD’ ,SEC_ATTR, 695 
569 ANSI_RESET, CRLF, 63C 
569 CRLF “SHIFT, 63¢ 
5694 "BLOCK. SPAN yes/no’, 63( 
5695 CRLF_SAIFT 63¢ 
5696 *CARRIAGE_ CONTROL keyword’, 63¢ 
5697 CRLF_SHIFT 63¢ 
5698 “CONTROL_FLELD_SIZE number’, 63¢ 
5699 CRLF_SHIFT, 63¢ 
5700 "FORMAT keyword’, 63¢ 
5701 CRLF_SHIFT, 63¢ 
270¢ "SIZE number’, 631 
HA, CRLF); o3! 
3705 END { IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } i 
5707 LSE 631 
3708 mer es 
5710 $3 
2711 WRITELN (SHIFT,QUES_HINT); 631 
orig END; o3s 
i eo iy 
a718 ELSE es 
nS BEGIN ret 
720 & 
i CLEAR (IF_FULL_PROMPT); 6 
57 5 IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 6 ' 
u © BEGIN 6 4 
7 $ WRITELN (SHIFT,° * ,ANSI_REVERSE, 5 ; 
728 * Current RECORD',SEC_ATIR, 63! 
729 ANSI_RESET, CRLF); 63; 
7 63; 
731 63! 
7 & 

} 
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sn orman. section (TEST); 
CLOSE (FOL_DEST); 
END { IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } 
ELSE 
WRITELN (SHIFT,QUES_HINT); 
END; { EXTANT_ONLY } 
WRITE seule te “pnter RECORD arte tbute (Keyword)', 


PARSE INPUT. { * ANSI RESET 
Loonens (EDF $AB_RECORD_ TABLE _K 
IADDRESS (EDFSAB_RECORD_TABLE_S 
FALSE, 
); 
END; { RECORD } 


Wn 


mint 
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v0: 


CLEAR (IF_FULL_PROMPT) ; 
IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 


761 SHARING : 63! 
76 63 
76 BEGIN 641 
764 64 
165 IF FULL_CHOICE THEN G41 
76 BEGIN 64( 
768 64( 
169 CLEAR (IF_FULL_PROMPT); ee 
771 IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN 64\ 
S778 BEGIN 64° 
ante WRITELN (SHIFT,' " ANSI_REVERSE, re 
176 " Legal SHARING’ ,SEC_ATTR, 64: 
77 ANSI_RESET, : 64" 
778 CRLF SHIFT, 64° 
5779 "DELETE yes/no’, 64' 
5780 CRLF_SHIFT, 64' 
5781 ‘GET yes/no’, 64' 
3782 CRLF_SHIFT, 64: 
78 "MULTISTREAM yes/no', 64; 
5784 CRLF_SHIFT, 64; 
5785 *PRORIBIT yes/no’, 64, 
3786 CRLF _SHIFT, 64, 
787 'PUT yes/no’, 64, 
3788 RLF _SHIFT, 64; 
789 "UPDATE yes/no’, 64; 
5790 CRLF_SHIFT 64; 
5791 TUSER_INTERLOCK yes/no’, 64; 
3798 CRLF)? oh 
5734 END { IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } 64, 
5796 ELSE 64. 
5798 WRITELN (SHIFT,QUES_HINT); 64 
400 END gai 
801 64 
80¢ ELSE 64: 
80 64 
305 BEGIN 64 
5 

a : 
if BEGIN 4 
Bie WRITELN <SHIFT,' * ANSI_REVERSE, 64: 
+ * Current SHARING’ ,SEC_ATTR, 64 
14 ANSI_RESET, CRLF); 64 
815 
816 { + 64 
81 Setup to display definition on the terminal. 64 
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$18 -)} 64 
81 OPEN (FOL BEST .StSSOUTDUT SA NAME ,NEW, o 
5 0 RECORD LENGTH 

$ 1 REWRITE tFoe WDEST); ee 
5 SHOW_PRIMARY_SECTION (TEST); er 
2 5 CLOSE (FOL_DEST); ee 
58 ? END { IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } oe 
if 9 ELSE o 
831 WRITELN (SHIFT,QUES_HINT); 64 
58 ¢ “a 64 
263 END; { EXTANT_ONLY } ee 
5835 WRITE ssuitle vest pty B mam (Keyword)', 64 
283 od ag * ,ANSI_R : "); % 
5838 Leones (EDF SAB_SHARING_TABLE_KEY), 64 
5839 JADDRESS (EDF SAB_SHARING_TABLE_STA), 64 
5840 FALSE, 64 
3Bc2 é4 
ones ‘ 64 
5844 END; { SHARING } 


64 
64 
64 
64 
64 
64 
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$ SYSTEM : 6 

: BEGIN ° 

3} IF FULL CHOICE THEN b2 
BEGIN 65 

838 63 
See CLEAR (IF _FULL_PROMPT); e2 
$28 IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN $2 
ty BEGIN 83 
5859 65 
5860 WRITELN (SHIFT ," * ,ANSI_REVERSE, 65 
208) * Legal SYSTEM® ,SEC_ATTR, 65 
a6¢ SI_LRESET,CRLF, 65 
586 CRLF_SHIFT, 65 
5864 ‘DEVICE string’, 65 
5865 CRLF _SHIFT, 65 
5866 * SOURCE keyword’, 65 
re ye4 CRLF _SHIFT, 65 
868 "TARGET keyword’, 65 
383 wh 
$871 END { IF FULL_PROMPT OR TEMP_FULL_PROMPT TRUE } $2 
2878 ELSE 65. 
oere 65 
875 WRITELN (SHIFT,QUES_HINT); 65: 
876 65: 
877 END 65: 
379 ELSE §2 
880 65: 
5881 BEGIN 63 
sa88 CLEAR (IF_FULL_PROMPT) ; 63 
S85 IF FULL_PROMPT OR TEMP_FULL_PROMPT THEN $3 
887 BEGIN 65 
888 65 
889 WRITELN (SHIFT,° * ,ANSI_REVERSE, $2 

890 " Current SYSTEM’, SEC_ATTR, 

891 ANSI_RESET, CRLF); 65 
o 65 
9 { + 65 
be] Setup to display definition on the terminal. $3 
+4 OPEN (FDL DEST SYSSOUTEYT NAME ,NEW, 65 
9 LENGTH := 252); 65 
38 REWRITE (FDL_DEST); é3 
$00 SHOW_PRIMARY_SECTION (TEST); 83 
902 CLOSE (FDL_DEST); $2 
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END { IF FULL PROMPT OR TEMP_FULL_PROMPT TRUE } 


ELSE 

8 

bie WRITELN (SHIFT,QUES_HINT); 

S310 END; { EXTANT_ONLY } 

2318 WRITE ssuitl vege SYSTEM Aver toute (Keyword)', 
91 ANSI ae ANSI_RESET,' : ‘); 

914 PARSE_] 

915 Jy Fak RESS (EDFSAB_SYSTEM_TABLE_KEY), 
a to pee (EDF SAB_ SYSTEM “T ABLE_STA), 
91 FALSE, 

918 

5919 ; 

easy 

5921 END; { SYSTEM } 


BEBE ee ee ee ee SSS SSS SS SSS SSS. 3 


1 
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OTHERWISE 


9246 
2 5 { NULL=STATEMENT ) ; 
; ? END; { CASE } 
; ; IF TEST.PRIMARY <> TITLE THEN 
; 1 TEST .OBJECT_TYPE := SEC; 
3 4 TEST.SECONDARY := INPUT_VALUE::SECONDARY_TYPE; 
935 { + 
$3 Get the secondary number if there was one, it's inited to 0; 
937 only SEGn_LENGTH,_POSITION,_TYPE set it. 
; : Force seg_type to be last. 
ro IF TEST.SECONDARY = SEG_TYPE THEN 
rh ak 4 TEST.SECNUM := 7 
594 
5944 ELSE 
5945 
aa8 TEST.SECNUM := EDFSGL_SECNUM; 
2908 IF ¢ 
seen (TEST.SECNUM < 0) 
950 OR 
5951 (TEST.SECNUM > 7) 
oge6 ) THEN 
3354 LIBSSIGNAL (EDF$_BADVALUE,0,0,0); 
3956 { + 
2037 If_ we're only to ask for what exists, then make sure this does. 
3404 IF NOT FULL_CHOICE THEN 
S361 BEGIN 
DEF _CURRENT := DEF_HEAD; 
is : 
965 REPEAT 
$6 IF NOT CURRENT_EQ_TEST(TEST, TRUE) THEN 
> , INCR_CURRENT; 
44 UNTIL (CURRENT_EQ_TEST(TEST, TRUE) OR (DEF _CURRENT*.FORE = NIL)); 
378 IF DEF_CURRENT <> NIL THEN 
Be BEGIN 
$7 IF NOT CURRENT_EQ_TEST(TEST, TRUE) THEN 


97 LIBSSIGNAL (EDF$_BADVALUE,0,0,0); 


SOS SSO OOO S SSS SSS SSS SSS SSSSSSSSSSSSSSSSSSSSSSSSsssssssssss =o 


8h 


PRSBS 
MSwn— 


S000 
SSS 
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END 
ELSE 
LIBSSIGNAL (EDFS_BADVALUE,0,0,0); 
END; { IF DISPLAY = EXTANT ONLY } 


fake sure this is true for only one cycle. 
TEMP_FULL_PROMPT := FALSE; 
END; { THE_QUESTION } 
BEGIN 


{ + 
Keep at it until the user gets it right. 
REPEAT 


THE _QUESTION; 
UNTIL NOT SYSSINPUT_ERROR; 
STRSFREE1_DX (INPUT_DESC); 
END;  € ASK_TEST_SECONDARY } 


Vd. 
:LE 
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66 
: 
6¢ 
66 
66 
66 
66 
66 
66 
6¢ 
66 
66 
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gph} { +4 

eot§ ASK_TEST_SECONDARY_VALUE == Input the user's value for the secondary. 
oR? This routine queries the user about his secondary. 
6017 CALLING SEQUENCE: 
4 ASK_TEST_SECONDARY_VALUE; 
6021 INPUT PARAMETERS: 
$58 

60 none 

6024 

6025 IMPLICIT INPUTS: 
6026 

$8 f SYSSINPUT: 

$3 9 OUTPUT PARAMETERS: 
oo none 

e088 

603 IMPLICIT OUTPUTS: 
6034 

6035 SYSSINPUT_ERROR 
ret SYSSOUTPUT: 

6038 ROUTINES CALLED: 
6039 

6040 ESTABLISH 

6041 

one ROUTINE VALUE: 

604 

6044 none 

6045 

6046 SIGNALS: 

6047 

6048 none 

6049 

6050 SIDE EFFECTS: 
6051 

$036 none 

605 

6054 -- } 


a 
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6056 PROCEDURE ASK_TEST_SECONDARY_VALUE; 
6058 VAR 

6059 1 : INTEGER; 
6060 TEMP_INT : INTEGER: 
6061 TEMP-DESC : DESCRIPTOR; 
606¢ TEMP—MAX : INTEGER: 
606 TEMP~STRING255 STRING2SS; 
6065 PROCEDURE THE_QUESTION; 

foe? BEGIN 


3 


6069 { + 

ogre Set up the condition handler to catch typing errors. 
oore SYSSINPUT_ERROR := FALSE; 

6075 ESTABLISH” (SYSSINPUT_COND_HANDLER); 

thd IF TEMP_FULL_PROMPT THEN 

6077 WRITELN (SHIFT, 

oore "The value entered will be put into the Definition.'); 
6080 { + 

6081 Pop the question. 

rend - 

rae ty IF TEST.PRIMARY = DATE THEN 

6085 WRITE (CRLF_SHIFT, 

ones *(dd-mmm-yyyy hh:mm:ss.cc)"); 

tt IF TEST.SECONDARY = POSITIONS THEN 

6090 WRITE (CRLF_SHIFT 

6091 "(Any_cylinder Cylinder File_ID Filename’, 
$08 CRLF _SHIFT,' Logical None Virtual)’,CRLF_SHIFT, 
609 ‘Enter POSITION qualifier (°) 

6095 ELSE IF NOT SEC_TYPECTEST.SECONDARY].QUAL THEN 
p44 WRITE (CRLF_SHIFT,*Enter value for this Secondary ('); 
rst IF SEC_TYPECTEST.SECONDARY).QUAL THEN 

6101 BEGIN 

oie 

ein? CASE TEST.SECONDARY OF 

6105 ORGANIZATION : 

6108 

61 WRITE (CRLF_SHIFT, 

$108 "(Indexed Relative Sequential)'); 

o19 SOURCE, 

611 TARGET : 

6112 


"1 
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F 


fe 


6113 WRITE (CRLF _ SHIFT 

eit? "(IAS RSTS/E RSX-11M RSX=11M-PLUS RT=11 VAX/VMS)'); 
eii8 RECOVERY_UNIT : 

oit8 WRITE (CRLF _SHIFT, 

oi "(Iflin recovery_unit Necessary_to_write Never_RU_journal None)'); 
ot 1 CARRIAGE CONTROL : 

61 § WRITE (CRLF_SHIFT, 

2 ¢ ‘(Carriage return FORTRAN None Print)'); 

$i $ FORMAT : 

6128 WRITE (CRLF _SHIFT, 

6129 ‘(Fixed Stream Stream CR Stream_LF*,CRLF_SHIFT, 

ot : * Undefined Variable JFC)'); 

o13¢ SEG_TYPE : 

ois WRITE (CRLF _SHIFT 

ates "(Bin2 Bins "Bin8 Decimal Int2 Int4 Int8 String"); 
at 4 OTHERWISE 

27) { NULL=STATEMENT } ; 

are END; { CASE } 

ark WRITE (CRLF SHIFT, "Enter value for this Secondary (Keyword)', 
oles ANSI_REVERSE, ‘C-J" ,ANSI_RESET,' “Fr 

o\8 CASE TEST.SECONDARY OF 

23 ORGANIZATION : 

6150 PARSE_INPUT ( : 

6151 IADDRESS (EDFSAB_ORG_TABLE_KEY), 

olag IADDRESS (EDFSAB_ORG_TABLE_STA), 

615 FALSE, 

6154 0 

EE " 

6189 SOURCE, 

et 28 TARGET : 

6160 PARSE _INPUT ( 

6161 IADDRESS (EDFSAB_SOURCE_TABLE_KEY), 

6166 IADDRESS (EDFSAB_SOURCE_TABLE_STA), 

616 FALSE, 

6164 0 

e193 ); 

ei? RECOVERY_UNIJT : 

6169 PARSE_INPUT ( 


2 
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é 

6 IF SEC_TYPECTEST.SECONDARY].NUM THEN 

6 BEGIN 

62 TEMP_MAX = SECONDARY_MAXLTEST. SECONDARY); 


IF (TEST.SECONDARY IN 

{ DATA_KEY_COMPRESSION, 
DATA_RECORD COMPRESSION, 
INDER_COMPRESSION 


) THEN 


See. 


POPORONOPONUNY 2 tt 


i 
i 
i 
8 
i 
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6170 IADDRESS (EDF$AB_RU_TABLE_KEY), 
6171 IADDRESS (EDFSAB-RU-TABLE_STA), 
617¢ FALSE, 
617 0 
6174 ); 
6175 
6176 CARRIAGE_CONTROL 
617 
6178 PARSE_INPUT ( 
6179 IADDRESS (EDFSAB_CARR_TABLE_KEY), 
6180 IADDRESS (EDF$AB~CARR-TABLE-STA), 
6181 FALSE, 
61 é 0 
618 a3 
6184 
6185 FORMAT 
6186 
6187 PARSE_INPUT ( 
6188 IADDRESS (EDFSAB_FORMAT_TABLE_KEY), 
6189 IADDRESS (EDFSAB_FORMAT-TABLE STA), 
6190 FALSE, 
6191 0 
619¢ ): 
619 
6194 SEG_TYPE : 
6195 
6196 PARSE_INPUT ( 
6197 IADDRESS (EDFSAB_TYPE_TABLE_KEY), 
6198 IADDRESS (EDFSAB_TYPE-TABLE-STA). 
6199 FALSE, 
e301 ); 
é 0¢ 
620 OTHERWISE 
6204 
6205 { NULL=STATEMENT } ; 
6206 
6207 END; { CASE } 
6208 
6209 TEST.QUALIFIER := INPUT_VALUE; 
$s END; IF QUALIFIER_VALUED } 
| 


2 
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END 
ELSE IF TEST.SECONDARY = CONTROL_FIELD_SIZE THEN 


6 z WRITE (*Abs<100)") , 
6209 ELSE IF TEMP_MAX = EDFSC_1GIGA THEN 9 
6251 WRITE ("0-1Giga)") i 
6 5 ELSE 64 
6239 WRITE (*O=", TEMP_MAX:NUM_LEN(TEMP_MAX),")"); ‘ 
6 ? WRITE (ANSI_REVERSE, 'C-)",ANSI_RESET); 20 
8535 IF ( 6D 
640 (NUM_LEN(TEMP_MAX) > 8) a 
6248 (TEMP_MAX <> EDFSC_1GIGA) 

624 ) THER 

6244 

6343 WRITE (* : *) 

6246 

6247 ELSE 

6248 

6249 WRITE (* 2"); 

6351 NUMBER_INPUT (TEST.NUMBER,FALSE,0); 

6355 If (TEST.SECONDARY IN 

6255 C _DATA_KEY COMPRESSION, 

6256 DATA_RECORD COMPRESSION, 

6297 INDER_ COMPRESSION } 

6259 ) THEN 

6260 

6261 BEGIN 

626 IF ( 

6264 ( (VDATACEDF $K_PROLOGUE_VERSION]) 

6265 AND CIDATACEDF$K_PROLOGUE_VERSION) < 3)) 

6266 AND 

6267 (TEST.NUMBER <> 0) 

6268 ) THEN 

6270 LIBSSIGNAL (EDF$_BADVALUE,0,0,0); 

6e7¢ IF ( 

627 (TEST.NUMBER < -TEMP_MAX) 

6274 OR 

6275 (TEST.NUMBER > TEMP_MAX) 

6 2% ) THEN 

6 78 LIBSSIGNAL (EDF$_BADVALUE,0,0,0); 

6280 

7 

e é 


wr 
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6 BEGIN 
6285 
6 IF ¢ 
. (TEST.NUMBER < 1) 
6289 
6290 
6291 
4 36 LIBSSIGNAL (EDFS$_BADVALUE,0,0,0); 
é 32 END 
ELSE 
629 
6298 BEGIN 
6299 
6300 IF ¢ 
6301 (TEST.NUMBER < 0) 
6308 ' 


(TEST.NUMBER > TEMP_MAX) 
) THEN 


$09 LIBSSIGNAL (EDFS_BADVALUE,0,0,0); 
END; 


IF ¢ 

1. cena: = MT_BLOCK_SIZE) 
(TEST.NUMBER > 0) 

(TEST.NUMBER < 20) 

) THEN 


LIBSSIGNAL (EDFS_BADVALUE,0,0,0); 
END; { IF NUMBER_VALUED } 


PIII) ed at ot ot ot 2 
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IF ¢ 
(SEC_TYPECTEST.SECONDARY].STR) 


2 
: (TEST.PRIMARY = TITLE) 
3 $ ) THEN 
3 ; BEGIN 
¢ 1 IF TEST.PRIMARY = DATE THEN 
° i WRITE (*Date-str)* ,ANSI_REVERSE,'C-)" ,ANSI_RESET,' ¢ *) 
° : ELSE IF TEST.SECONDARY = NAMES THEN 
° WRITE (°1-32 chars)Cnull) *% 
se ELSE 
6340 WRITE (°1-126 chars)Cnull]",CRLF_SHIFT,*: "); 


} 
OR 
(TEST.NUMBER > TEMP_MAX) 
) THEN 

| 
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6341 

° ¢ IF EOF CINPUT) THEN 

6344 BEGIN 

6345 

6 $ RESET CINPUT) 

6 4 LIBSSIGNAL (EBFS. CTRLZ,0,0,0); 

6349 END; 

6 4 

6351 READLN (TEMP STRING255) ; 

° 26 WRITELN (CRLF); 

6354 TEST.STRING : L_STRING; 

6355 STRSTRIM (TEst.§ RiRG TEMP_STRING255); 

6356 LIBSSCOPY_DXDX STRING TE ING, INPUT DESC); 

6357 PARAM CBLOCK. TPA L_TOKENPTR := INPUT_DESC.OSCSA_POINTER: : UNSIGNED; 

$328 PARAM “BLOCK. TPASL_ TOKENCNT := INPUT_DESC.DSCSW_LENGTH; 

6360 

6361 {,* we're journaling our input, save a copy of it to the 

O366 journal re dpur . ' = 

ose IF JOURNAL _ENABLED THEN 

? ° IF TEST.STRING.DSCSW_LENGTH > 0 THEN 

6368 WRITELN ( 

6369 JOURNAL_FILE, 

6370 TEST. STRING. DSCSA_POINTER*: 

° a! , EST. STRING. OSC$W _LENGTH 

6 te 68 
osre ELSE 69 
6376 WRITELN (JOURNAL_FILE); $9 
6378 IF TEST.PRIMARY = DATE THEN 6 
g 5 BEGIN re 
6381 61 
638 STRSUPCASE (TEST.STRING, TEST.STRING); 45 
° ¢ IF TEST.STRING.DSCSW_LENGTH = 0 THEN nt 
° BEGIN 65 
6 STRSF nee E1_DX (TEST.STRING); 6E 
O32? LIBSSIGNAC (EDF “NODEF AULT; 0,0,0); 2 
g 91 END; 

$8 ‘ 
639 { + é 
6394 Copy the uecesed string back into the temp_string255 

e 95 for the test. 

6 39 FOR I := 1 TO TEST.STRING.DSCSW_LENGTH DO 6é 


SSSResssss 
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TEMP_STRING2S5SCI] := TEST.STRING.DSCSA_POINTER*CI); 


IF ¢ 
yg hy ( SBINTIM (TEMP_STRING255,QUAD_TIME) ) 


) THE 
BEGIN 
STRSFREE1 DX (TEST.STRING); 
LIBSSIGNAC (EDF$_BADSYNTAX,0,0,0); 
END; 
END; { IF TEST.PRIMARY = DATE } 
IF ¢ 


( 
i capaateaias = NAMES) 
5 TEST SPRING .DOCOM LONE TS > 32) 


OR 
(TEST.STRING.DSCS$W_LENGTH > 126) 
) THEN 


BEGIN 


STRSFREE1 DX (TEST.STRING); 
LIBSSIGNAC (EDF$_BADSYNTAX,0,0,0); 


END; 
END; { IF STRING_VALUED } 
IF SEC_TYPECTEST.SECONDARY].SW THEN 
BEGIN 
WRITE ("Yes/No)* ,ANSI_REVERSE,"C-]" ,ANSI_RESET,' a3 
PARSE _INPUT ( 
IADDRESS (EDFSAB_YES_NO_TABLE_KEY), 
IADDRESS (EDFSAB_YES_NO_TABLE_STA), 
FALSE, 
); 
TEST.SWITCH := CINPUT_VALUE = EDFSK_YES); 


IF ( 

(TEST.PRIMARY = KEY) 
AND 

Tener nanan = 0) 
(TEST.SECONDARY = CHANGES) 
(TEST.SWITCH = TRUE) 
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e 


& 5 ) THEN 

o : LIBSSIGNAL (EDFS$_BADVALUE,0,0,0); 

64 § IF ¢ 

6460 (TEST.PRIMARY = RECORDS) 

6461 AND 

646 (TEST.SECONDARY = BLOCK_SPAN) 

646 AND 

6464 TEST SusTCn = TRUE) 

6465 ) THEN 

sith 

econ BEGIN 

e729) IF FIND_OBJECT (SEC, FILES,0,ORGANIZATION,O) THEN 
6471 BEGIN 

ahh: 

yah IF DEF_CURRENT* QUALIFIER <> FDL$C_SEQ THEN 
one? LIBSSIGNAL (EDF$_BADVALUE,0,0,0); 

gars END; 

6478 

6479 END; 

6480 

“3) END; { IF SWITCH_VALUED } 

ccs IF TEST.SECONDARY = OWNER THEN 

6485 BEGIN 

6486 

6487 

6488 

6489 WRITE ft Yicwaeed® ANSI. REVERSE, ‘C-]",ANSI_RESET,' : "Ds 
6490 PARSE_INPUT ( 


6491 IADDRESS (EDFSAB_UIC_TABLE_KEY), 
649 IADDRESS (EDFSAB_UIC-TABLE_STA), 
649 FALSE, 
6494 
6495 ); 
te 
“5 TEST.OWNER_UIC := EDFSGL_OWNER_UIC; 

+4 END; { IF TEST.SECONDARY = OWNER } 

t IF TEST.SECONDARY = PROTECTION THEN 

§ BEGIN 
FOR I := 0 TO 31 DO 


EDFSGL_PROT_MASKCI) := FALSE; 


WRITE (*Prot-str)* ,ANSI_REVERSE,*C-J" ,ANSI_RESET,CRLF_SHIFT,*: °); 
PARSE _INPUT ( 
IADDRESS (EDFSAB_PROT_TABLE_KEY), 


38 


PACA 
BARAARAAAR AAS 
w 


we 
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| 
EDF SGL_OWNER_UIC := 0; 
| 
| 
| 
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1 IADDRESS (EDFSAB_PROT_TABLE_STA), 
i FALSE, 

); 

1 TEST. PROT_MASK := EDFSGL_PROT_MASK; 

1 


END; { IF TEST.SECONDARY = PROTECTION } 
IF TEST.SECONDARY = POSITIONS THEN 


—"OOONOVLWN OC OONOUfSurTy 


CASE TEST.QUALIFIER OF 
FDLSC_CLUSPOS, FDLSC_CYLPOS, FOLSC_LOGPOS, FDLSC_VIRPOS : 


5 

5 

; 

5 

5 PARSE_] 

5 IADDRESS (EDFSAB_POSIT_TABLE_KEY), 

5 IADDRESS (EDFSAB_POSIT_TABLE_STA), 

5 FALSE, 

5 

2 ); 

i TEST.QUALIFIER := INPUT_VALUE; 

2 5 IF NOT (TEST.QUALIFIER IN C FOLSC_NOPOS, FDLSC_ANYPOS J) THEN 
537 BEGIN 

2 WRITE (CRLF_SHIFT,*Enter POSITION value (*); 
5 

5 


PE rw 
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544 
6345 BEGIN 
rere WRITE ('0-1Giga)',ANSI_REVERSE,'C-)"°,ANSI_RESET,° >"); 6 
6948 NUMBER_INPUT (TEST .NUMBER,FALSE,O); 2 
6550 END; 6! 
6951 0 
65 ; FDLSC_FIDPOS : 
655 
6554 BEGIN 6! 
6999 0 
5 g EDFSGL_FID1 := 0: 
655 EDE SGL—F ID¢ is g: 
$238 EDFSGL_FID := 0; ¢ 
$278 WRITE ("FID-str)* ANSI_REVERSE,'C-J",ANSI_RESET," 2"); 
6361 PARSE_INPUT ( 
6 2 IADDRESS (EDFSAB_FID_TABLE_KEY), 6 
656 IADDRESS (EDFSAB~FID-TABLE-STA), 6 
6964 FALSE, 
$363 
gee? 
6568 TEST.FID1 := EDFSGL_FID1; 


| 
BEGIN 
WRITE { Keyword) ' -ANSI REVERSE, "CJ" ,ANSI_RESET,' : *); 
NPUT ( 
| 
| 


é 
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6569 TEST.FID := EDFSGL_FID2; 
° 19 TEST Fibs 33 EE sct iF 1D8, 
° if END; 
6574 FDOLSC_FNMPOS : 
g Fi BEGIN 
e377 
e ne WRITE (°1-109 chars)Ci (LL]',CRLF_SHIFT,': '); 
é3 : IF EOF CINPUT) THEN 
65 ; BEGIN 
65 
6584 RESET CINPUT) 
6985 LIBSSIGNAL (EbFS_ CTRLZ,0,0,0); 
ett END; 
6588 
6589 READLN (TEMP_STRING25S); 
6590 WRITELN (CRLF); 
6591 
659 TEST. STRING := NULL 
659 STRSTRIM (TEST. STRING beap REYRiNG2 255); 
6594 LIBSSCOPY_DXD X (TEST. STRING, INPUT_DESC); 
6595 PARAM BLOCK MTPASL TOKENPTR HE INPUT _DESC.DSC$A_P POINTER: : UNSIGNED; 
6298 PARAM “BLOCK. TPASL— _ OKENCNT := INPUT_DESC.DSC$W_LENGTH; 
6598 { + 
6599 f we're journal ing our input, save a copy of it to the 

ournal file. 


IF JOURNAL_ENABLED THEN 
IF TEST.STRING.DSCSW_LENGTH > 0 THEN 
WRITELN ( 
JOU 


{ NULL=STATEMENT } ; 


6600 

6601 

660¢ 

660 

6604 

6605 

ret RNAL_FILE 

6608 TEST.STRING.OSCSA_POINTER*: 
6609 TEST. STRING.DSCS$W_LENGTH 
6610 ) 

6611 

6614 ELSE 

661 

6614 WRITELN (JOURNAL_FILE); 

6616 IF TEST.STRING.DSCSW_LENGTH > 109 THEN 
ett LIBSSIGNAL (EDF$_BADSYNTAX,0,0,0); 
6620 END; 

6621 

66 y OTHERWISE 

66 

6624 

6625 


Blo 
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END; { CASE } 
END; { IF NOT (TEST.QUALIFIER IN C FDLSC_NOPOS, FDLSC_ANYPOS J) } 
END; { IF TEST.SECONDARY = POSITIONS } 
CTEST. SECONDARY = NULL_VALUE) 
4g a mate = MT_PROTECTION) 
BEGIN 


WRITE ('**char''/num)' ,ANSI_REVERSE,'C-]' ,ANSI_RESET,' g "Ds 


IF EOF (INPUT) THEN 


BEGIN 
RESET (INPUT); 
LIBSSIGNAL (EDF$_CTRLZ,0,0,0); 
END; 


READLN (TEMP_STRING255); 
WRITELN (CRLF); 


TEMP_DESC _:= NULL_STRING; 

STRSTRIM (TEMP_DESC-TEMP_STRING255); 
LIBSSCOPY_DXDX~ (TEMP DEST, INPUT DESC); 
PARAM_BLOCK.TPASL_TORENPTR := INPUT_O 
PARAM_BLOCK.TPASL-TOKENCNT := INPUT~D 


mm 
nn 
Ono 


-DSCSA_POINTER: : UNSIGNED; 
-DSCS$W_LENGTH; 
{ + 
If we're Journal ing our input, save a copy of it to the 
journal file. 
IF JOURNAL_ENABLED THEN 

IF TEMP_DESC.DSCS$W_LENGTH > 0 THEN 

WRITELN ¢ 


POINTER*: 
SC$W_LENGTH 
ELSE 

WRITELN (JOURNAL_FILE); 


IF TEMP_DESC.DSCSW_LENGTH = 0 THEN 
BEGIN 
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6683 STRSFREE1_ DX (TEMP_DESC); 

eet: LIBSSIGNAC (EDFS_NODEFAULT,0,0,0); 

66 END; 

ess ISTATUS := OTSSCVT_TI_L (TEMP_DESC,TEMP_INT); 
2930 IF ODD (ISTATUS) THEN 

$98 TEST.NUMBER := TEMP_INT 

6694 ELSE IF ¢ 

oe02 sow PERE DECOR PORTER STS <> APOSTROPHE) 
goer (TEMP _DESC.DSCSA_POINTER*C3] <> APOSTROPHE) 
6698 ) THEN 

6699 

6700 BEGIN 

6701 

670 STRSFREE1_ DX (TEMP_DESC); 

one LIBSSIGNAC (EDF$_BADSYNTAX,0,0,0); 

6705 END 

6706 

4414 ELSE 

344 TEST.NUMBER := ORD (TEMP_DESC.DSCSA_POINTER*(2)); 
oft} IF TEST.SECONDARY = MT_PROTECTION THEN 

orig BEGIN 

6714 

6715 { + 

6716 Make sure it's a legal ANSI-a character. 
6717 - } 

6718 IF ¢ 

on SrEST AMBER < %Xx20) { SPACE } 

ors) crest UBER > %X5A) { CAPITAL Z } 
672 (TEST.NUMBER = %X23) {#)} 

6724 OR 

ore? SLEST MUMBER = 2X24) {$} 

& (TEST.NUMBER = %X40) {a>} 

67 ) THEN 

67 

of BEGIN 

67 STRSFREE1 DX (TEMP_DESC); 

67 LIBSSIGNAC (EDF$_BADVALUE,0,0,0); 

4 END; 

of END; { IF TEST.SECONDARY = MT_PROTECTION } 
67 END; { IF TEST.SECONDARY = NULL_VALUE OR MT_PROTECTION } 


BLK 


sae 1G-se0-1964 00:56:05 vANedT Pare 


{ + 
Make sure this is true only for one cycle. 


TEMP_FULL_PROMPT := FALSE; 
END; { THE QUESTION } 
BEGIN 
IF TEST.PRIMARY = TITLE THEN 
TEST .OBJECT_TYPE := PRI 
ELSE 
TEST.OBJECT_TYPE := SEC; 


ha at it until the user gets it right. 
REPEAT 
THE QUESTION; 
UNTIL NOT SYSSINPUT_ERROR; 
STRSFREE1_DX (INPUT_DESC); 
END; { ASK_TEST_SECONDARY_VALUE } 


END. 
{ End of file: SRC$:EDFASK.PAS } 


al Mt 4-277 
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EDFASK 16-Sep-1984 00:56: VAX-11 Pascal V2.4-277 P 14 ED 
04-000 Generated Code Bont aee 98:88:88 Neck dwGaRe Pte Pepe caczeprask.pas:1 284) °~ vo 
eTITLE EDFASK 2 
-IDENT \v04-000\ 7 
00000 -PSECT S$CODE,PIC,CON,REL,LCL,SHR,EXE,RD,NOWRT,2 f 
7 65 6C 20 32 20 65 68 74 20 65 70 79 54 O C.AAA: .ASCII \T the 2 lett ic of th lect\- 2 
6F 20 es 69 OF GF 6p e se ép 2 iS $5 $4 $8 wa é 
SRS Hee ED eR mg ss tint 
7 73 20 65 eB °° 7 69 20 7 é9 $8 4 0084 C.AAB: .ASCII \This is the starting byte of the key or \- 
$6 4 3 $3 i? eS § ¢ 67 6 6 ef of 33 008 \key segment.\ 
t gee ep é ; 5 ° 
F 74 20 73 e 5 8 65 0 3 6 8 33 0 és C.AAC: .ASCII \This refers to records that are added to\- 
o 35 et $f bo ge ge St Ge BF 88 be OSs 8? 0082 dove $ 
68 009 
20 74 $9 20 72 65 74 $6 61 20 65 $f 63 66 $094 C.AAD: .ASCII \file after it is initially loaded. \<0><0> $ 
[ae eee oe oe oe 09086 , 
or 34 44 $3 § $e 2 €5 é $9 oS 4H 20 : S44 C.AAE: .ASCII \This enables or disables the RMS option.\ } 
6E 6F 69 74 6F 3 4D ; 0004 
oF 4 7 $3 § es o e5 $3 30 é9 ¢? 29 ge o C.AAF: .ASCII \This enables or disables the RMS option.\ 3 
—E 6€ 6F 69 74 7 F 20 53 4 2 OOF 
65 68 25 67 6€ 69 72 7 of 20 68 a3 $i 4 0108 C.AAG: .ASCII \Each string key may consist of up to 8 p\- : 
o at fo 88 ge 8h OS $2 88 98 Se 20 és ef Size ah hapa 
09 0 3 4 o1$ 3 
0 79 6C 6C 61 75 73 75 3 6 a é 68 54 01 A C.AAH: .ASCII \These usual ty increase the speed of file\- 
RRERERE EES Ee ee Bs Toogen corte , 
0 C 67 6 9 7 7 @ 0162 0 
65 73 6€ 65 70 a 43 0 $3 8 4 56 o 61 Hath C.AAI: .ASCII \at the expense of using more physical me\- § 
ESESRLERE ERE HB Be eo to 
00 00 00 2E€ 7 0196 
6— 61 65 6D 20 63 69 74 61 6D 6F 74 75 if O19C C.AAJ: .ASCII \Automatic means the default answers will\- 6 
20 74 6C 75 61 $6 5 64 $9 6 8 74 20 73 O1AA \ be used without\ 0 
CREE O HR EE HH Bile 
6F 63 34 te 6F o6 4 e 6— 69 74 24 61 ; 8108 C.AAK: .ASCII \waiting for confirmation. \<0><0><0> ‘ 
% o 6C 6F ts 4 6 $f re § ts 9 é 5 tid C.AAL: .ASCII \This controls whether full menus are dis\- g 
0 of 6c 7 $6 25 § 65 74 8 6 7 1FE \played.\<0> 
6c 70 69 7 it ei i 3 $3 o 6 
65 74 65 64 20 of 6 9 $ 6 3 669 be s, 0 C.AAM: .ASCII \This will determine the allocation of th\- 2 
5 8S 85 9 50 be oF af ; 8 9 Bf Gs e ve Ti hienaeonae : 
9 66 GA 
¢f 74 20 73 72 65 66 $3 6 r3 é f 4 20 C.AAN: .ASCII] \This refers to the order of the initial \- é 
$6 er eo } $3 ¢ 3 6F 3 : \records loaded. \<0> 6 
BRREREP EERE Re BH 
68 74 20 65 72 6 6 8 54 88 C.AAO: .ASCII \These are the records initially loaded i\- 2 


FW" NOS MOOMWNO 


~ PINON 
SNe SSNORASSSNSSSA 


DrOe 
AINA VINA ONPANINNGA PARDO 
COrV™ WIVIUIMICOMONVMOAOfLS 


COmMoow OOOWOOL ONL *Oonem 
Fung 


=~ 
ono SOOO NNINOOO SRS SSS 
vin SOOO OmMs 

SOUINMUMOMUSOS 


SOMME UNMIUNINDO —OON SFM MTN 


SOWOMNNVOOO MY 


SNOOMWE AGOANA AOOOCOs! 


VSSriniao ous Mow &S2SSSS 
VONMWNOAOUNALS GOAN COOSVEOO 


AUASNAASAOOQOUGNA NN 
WIASFSASRsso= 


o 
~m 


N 2 
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Generated Code paar 1 99:38:93 SP KSUMGHASTER FEDF SRCJEDFASK.PAS; 1 (82) vo 
4 72) «OOF ¢9 65 qe , \nto the file. \<0><0><0> ¢ 
SRG BRS : 
6 4 6 49 CO C.AAP: .ASCII \If the file will have no ‘‘Load’’ operatio\- 6 
73 2 : ‘ f ce \n, specify ‘'0°'.\<0> 6 
0 EA 7 
20 bt é g 3 be C.AAQ: .ASCII vinese ace the cocerds added after the in\- ? 
SERRE Bu | 
z¢ F ‘ ; és 4 % C.AAR: .ASCII \If no, each record plus overhead must fi\- 5 
Ht p ? of g if \t in a disk block. \<0><0> ‘ 
64 1 a 5A 7 
0 —E 68 : 68 6 
8 ef or of é3 ° oc C.AAS: .ASCII Me opt poy ace may be wasted at the en\- ; 
20 74 61 30 64 6 88 . 4 
6F 6C 86 6 ef 0396 
69 so 4 6 4 O3A0 C.AAT: .ASCII \This is the Length of the key (segment) \- 4 
ef ey $8 23 of O3et \in bytes. \<0><05<0> é 
3 65 74 79 2 0 O3CA 7 
0 74 74 «69 38 0304 C.AAU: .ASCII \(With multi-segment keys, answer ‘0'’ aft\- 7 
3 $ if $2 $0 $f O30 \er the last segment.) \<0><0><0> 
Be ®  B8ie 
23 0 5 4 és 52 bt33 C.AAV: .ASCII \yhis voters fe the structure level of th\- 
e data e. 
Bere eo Be 
$8 $f 1 a 0 41 re C.AAW: .ASCII \A value of 0 Lets RMS choose an appropri\- 
4D 0 7 & $2 0456 \ate prolog.\<0> 
eee hh Bile 
2 oF 66 23 047C C.AAX: .ASCII \If an Analyze/RMS indicates Little compr\- 0 
6— 6 0 4D 5 048A \Nession is acheived\<0><0> 7 
6 gf 4 74 69 § 0498 ? 
oo se us 
61 2 oF 43 $? 04B8 C.AAY: .ASCII \then answer No, otherwise it is usually \- 
$3 § 36 $f 35 th \better to answer Yes. \<0><0><0> ? 
74 «20 3 4 74 4E é 
SELL! 
§ F 48 4—8 C.AAZ: .ASCII \SHOW DEVIFE/FIAL can be used to determin\- 
6 1 0 4C af 06 \e this value. \<0><0><0> 6 
BERS Gt Be 7 
7 6 7 9 es 4 % C.ABA: .ASCII \This refers te the orderring of addition\- 
6F 6 4 E \al records. \<0> é 
3 oF gs ee $e a ‘ 
2 et 1 é ¢§ 35 9 C.ABB: .ASCII \Legal range is 1 to 63 plocks per bucket\- 
6F 74 20 31 2 2 \, and buckets must\<0><0> é 


Wow 
Gaaw 
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Ree 188s 995388 eee GaRS ete Y ete “ShcaeprasK.pas:1 480)” 


FASK 1 
Oe -000 Generated Code 


C 74 B 63 75 6 7 5 70 20 73 0 
AES RES Tae i 
ABC: .ASCII \be large enough to hold at least 1 recor\- 
TEPELLIAL LEE a date 
A 
es 8 8 i "3 F is es f be ‘i $ 3 S08 C.ABD: .ASCII \Smaller_Buffers: less memory and RMS pro\- 
79 is 6F 6D 65 gp 7 6C 20 3A 05E6 \cessing used\ 
6 08 OF Te D&S 23 98 35 ob ce 68 9S 93 b0802 
3A 7 5 6 §5 4 F 7 4 of 1 4 éo¢ C.ABE: .ASCII \Flatter_Files: fewer actual disk acces\- 
GREER AGRE RE Ree Be oe E re 
20 3A 73 65 "9 et et A 25 e? $i e ry 4C 00646 C.ABF: .ASCII \Legal values: Fast_Convert, Nofast_Conve\- 
PES REE REL RED Se ie Nees Puts 
20 3A 7% 7 a 6 be ar 25 3 7 i at 6 tee C.ABG: .ASCII \Fast Convert: using the VAX-11 Convert\- | 
41 56 ? eS 68 a ee 7 ? $9 { 3 2 ¢3 dees \/Fast_Load opt ion\<0><0><0> 
or & 74 70 6F 20 64 61 6F 4C 7 7 73 2 Bae re 
BSD RS GB Bee come met etyet comers, trig, ste oot comet 
4E 2F 74 72 65 76 6E 6F 4 $9 31 31 2D 58 006CC Z 
74 70 6F 20 64 61 6F 4C SF 74 00 ee 26 of Heep 
0 3A 73 74 75 50 SF 4D 5 QO6EC C.ABI: .ASCII \RMS_Puts: writing to a file from a\- 
PRE RSER ERR ELS Be 2 Dee meme 
67 6€ 61 4C 20 6C 65 76 65 4C 20 $8 of $2 tat 
69 20 65 68 74 20 q $8 20 r3 es $0 23 pores C.ABJ: .ASCII eee. ie the Terttat file loading fill fa\- 
F 0 6C ° 
ot és gi é $3 6c 6C 69 $8 ss of ze i oF 00732 
Cw 2 ing Bin8 Int2 Int4 In\- 
2 33 ae 63 3 50 34 ge é3 o3 3 32 éf 65 Orde ne OO Si tle eee 
4 6€ 49 4 74 6€ 
6— 69 72 74 a 20 6C 61 6D 69 $3 69 06 “ ne 
ee 4 3 $598 CCAM “ASCH VB ina ty es for unsigned binary keys of\- | 
re $9 55 $2 eg i} 9 i se 23 20 7 F 7A6 \ 4 or 3 bytes \<0>209<0> 
33 2 $6 6F 23 9 65 $8 $5 7 $ 61 6€ Oybe 
6 4 79 20 38 20 6F 69 33 i Bice 
4 0704 C.ABN: .ASCII \"Intx'’ types for signed binary key of 2,\- 
POUR RERR RGD GY ss Wicca | 
7F 
$s - 5 53 be 61 ep 5 é 6 ef f C.ABO: .ASCII \'Decimal’’ type for packed decimal key of\- | 
5 7 20 os i 4 e§ 61 23 y of 66 1A \ 1 to 16 bytes,\<0> 
1 F 
BRRERR ERR EH oF | 
| 


Sic —— 4 


3 
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Generated Code Ree 8Re 9938593 Mca tM ehe ee caeprasx.pass1 282) 
70 79 74 20 7 6€ 69 7 4 53 4 C.ABP: .ASCII \''String'’ f h t ing key o\- 
4 § ay 8 oF SE SS 6 2 gt é g Af 1 to-258) bytes. \coscoseo> 8 “OF O 
L 99 oo 30 88 88 8 3 3 | 
4 79 6 0 2 p 69 $0 
$3 6C 69 $6 $8 64 65 78 : $f 0 : C.ABQ: .ASCII \Indexed files are only Fixed or Variable\- 
69 4 6E 6F 1 E \.\<0><0><0> 
65 6C 62 61 69 55 61 56 $3 oo 0 $ H 
61 60 7 F 66 20 6D 61 65 7 4 AC C.ABR: .ASCII \St f t (Ss ly) is St , Stre\- 
$2 0 4 f 25 6E or , ‘i é§ $7 : § BA \am_ CR. or Stream LF oA pili sothagua. Paci 
g 4g 74 : § $$ 6F 20 5 53 i O86 
6C 61 20 6€ 61 20 74 63 6 6 3 O8E8 C.ABS: .ASCII \Select lready defined key.\<0><0> 
20 64 85 GE 69 66 65 66 90 *5 g4 gh O6F6 ne renege ip tan Rite 
66 20 64 65 78 65 64 6E 49 ¢ gf 41 0908 C.ABT: .ASCII \An Indexed file can have from 1 to 255 k\- 
66 20 $2 76 61 68 20 6€ $} § 65 0916 \eys.\ 
68 20 35 35 32 20 6F 74 20 31 20 $8 00982 : 
a4 73 72 65 66 65 72 20 73 69 65 54 B08 4 C.ABU: .ASCII \This refers to the Fixed portion of the \- 
0 20 64 65 78 69 46 20 65 68 74 ¢0 beT3 \record. \<0> 
20 65 68 74 20 66 of ? oF of 9? He 9444 
20 73 72 65 66 65 72 20 73 69 68 54 00964 C.ABV: .ASCII \This refers to the records in the data f\- 
73 64 72 6F 63 65 72 20 65 68 74 20 943 \ile.\ 
66 20 61 74 61 64 20 65 68 74 30 of 94+ 
68 74 20 73 74 65 73 20 3 69 68 54 0990 C.ABW: .ASCII \This sets the longest record that can be\- 
6F 63 65 72 20 74 73 65 67 6E 6F 6C 099E \ stored in the file.\ 
65 62 20 6E€ 61 63 $3 74 «61 § 74 $? O9AC 
65 68 74 20 6€ 69 20 64 $2 f 6F i Booea 
66 6F $8 6D 75 6D 69 78 61 6D 25 41 Sooce C.ABX: .ASCII \A maximum of 0 will set no explicit maxi\- 
6F 6 0 74 65 73 20 6C 6C 69 $0 O9DA \mum. \ 
69 78 61 6D 20 74 69 63 69 6C€ 44 : paee 
68 74 $0 73 74 65 73 20 73 69 és 4 0098 C.ABY: .ASCII \This sets the Record attributes of the f\- 
69 7 4 7% 1 0 64 2 gf $3 6 2 OA06 \ile.\ 
66 20 65 68 74 20 66 6F 20 1 Hy dong? 
49 20 3A 64 6E 75 6F 62 20 77 6F 4C nee C.ABZ: .ASCII \Low bound: Initial Load of Recs\<9>\(0-1\- 
6F 20 64 61 6F af 3 $} 69 74 A 3 \Giga) COIJ\<9>\: \<0> 
61 67 69 47 31 2D 3 ft 93 $3 rv 
20 3A 64 6E€ 75 6F ; § : 6 9 i Age C.ACA: .ASCII Nate bound: Initial Load of Recs(\<0>- 
6F 20 64 61 of ac : 25 $9 : 3 \ 6 <0><0> 
B 29 61 3 $3 1 20d A78 C.ACB: .ASCII \-1Giga)C\ 
A 09 O C.ACC: .ASCII <9>\: \<O> 
A 20 C.ACD: .ASCII \ : \<0> 
4E 9 A 64 6€ 75 6F 62 6F ABB C.ACE: .ASCII \Low bound: Number of Added Recs\<9>\(0-1\- 
64 65 64 64 41 20 F 4 7 6 A%% \Giga) LOJ\<9>\: \<0> 
61 67 69 47 31 2D i 7 ; g “ 
20 3A 64 6E 75 6F 6 8 3 69 4 Bs C.ACF: .ASCII \High bound: Number of Added Recs(\<U>- | 
| 
| 


—— 
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4-000 Generated Code ~8ep-19 4 99:38:93 DISKSVMSMASTER: LEDF .SRCJEDFASK.PAS;1 (33) 


20 64 65 64 64 41 20 F 7 § ¢ AC <0><0> 
0 0 7 AD 
8 1 4 1 D ADC C.ACG: .ASCII pra dt 
0 39 A 30 AEB CLA: CASCHT Wr Neos” 
79 65 4B 20 3A 64 6E 75 6F 62 Sf nh C.ACJ: .ASCII \Low bound: Key\<0><0> 
00 2D 31 28 O9 | 74 67 6€ $5 4C AFC C.ACK: .ASCII \ FORTH <PPNC}N<O> 
00 3A 09 SD 3) 28 BOS C.ACL: .ASCII \)CII\<9>\: \<0> 
65 48 20 3A 64 6€ F 62 20 68 67 4 ; 4 C.ACM: .ASCII \High bound: Key\<0> 
00 28 09 68 74 67 GE 65 4C ge 5 C.ACN: .ASCII \ penath\<9>\(\<0> 
28 B2A C.ACO: .ASCII NDLN 
63 65 52 20 3A 6 75 6 6 * oF te 8 § ACO; ASCII sey , Record Size\<9><9>\(1=\<0> 
ACQ: . ow bound: Recor ze - 
00 2D 34 38 09 O09 65 7A H §¢ 0 $% $f gf 3 E 
65 52 20 3A 64 6 Be er ; 28 : 2 3 Ops EeAER: ASEH Nelak ‘sound yo d Size\<9><9>\(\<0><0> 
ACS: . ound: Recor ze 
00 00 38 09 09 65 7A 69 3 $e $5 F i p88 : 
00 5D 30 0 31 5B 29 0B70 C.ACT: .ASCII \)C£10003\<0> 
00 20 3A O09 O0B78 C.ACU: .ASCII <9>\: \<0> 
3 A 20 ber C.ACV: .ASCII \: \<0> 
79 65 4B 20 3A 64 6E 75 6F 62 of $f pee C.ACW: .ASCII \Low bound: Key\<0><0> 
28 09 25° 20 6C 6C 69 $8 74 69 3 49 20 0B90 C.ACX: .ASCII \ Init FILL B\<9>\(50-100)C50I]\<9>\: \ 
20 3A 09 5D 30 35 5B 29 : 30 31 2d 30 35 OB9E 
65 48 20 3A 64 6E 7 62 20 68 67 a 38 reat C.ACY: .ASCII \High bound: Key\<0> 
8 OF 25 20 $c C 69 46 $8 74 $9 6E 3 0 OBBC C.ACZ: .ASCII \ Init FILL ¥\<9>\(50-100)C0100I]\<9>\: \<0> 
A 09 5D 30 30 31 5B 29 30 30 31 2D 30 35 OBCA 
00 20 00808 
09 09 OBDA C.ADA: .ASCII <9><9> 
20 65 6C 74 69 54 20 74 70 69 % 63 53 9 OBDOC C.ADB: .ASCII \ Script Title Selection \ 
20 6€ 6F 69 74 63 65 6C 65 OBEA 
6C 65 6F 6D 09 09 79 65 4B SF 64 64 41 OBF4 C.ADC: .ASCII \Add_Key\<9><9>\modeling and addition of \- 
69 74 69 64 61 20 64 6€ 61 20 67 6E 69 BcO¢ \a new index's parameters\<0><0> 
of 69 20 77 65 6— 20 61 $8 $6 F 60 of 6F 0C1 
65 74 65 6D 61 72 61 0 7 68 8 $8 $33 
6D 65 « 09 79 65 48 SF 65 74 $8 6C 65 44 Ha C.ADD: .ASCII \Delete_Key\<9>\removal of the highest in\- 
69 3 § 65 68 74 20 gf 0 $¢ 61 76 6F C3E \dex's parameters\ 
20 7 78 65 64 of 9 9 4 $3 6 $7 C4C 
3 72 6 4 65 6D 61 f 61 70 CSA 
C 65 646 6F $8 09 54 4 65 78 65 64 6E 49 ces C.ADE: .ASCII \indened\<9><9>\nodet ing of parameters fo\- 
4 65 61 72 61 S 66 «6F of 8 69 C 3 \r an entire Indexed file\<0><0> 
74 6€ 65 20 6 ee 6F 6 : 65 ce 
69 66 20 64 6 8 65 64 6E 4 6 7 o? cee 
69 6€ 75 74 09 65 7A 69 6D 4 $ 4f AO C.ADF: .ASCII \Optimize\<9>\tuning of all indices’ para\- 
6 34 — 69 20 6¢ § 61 8 F $ 67 CAE \meters using file statistics\ 
7 ¢ 5 74 65 6D 61 61 H cBc 
7%4 7 0 65 6C 69 rs 2 24 gf { o? : ete 
63 65 6C $3 73 08 73 9 74 61 6C 65 52 £e5 C.ADG: .ASCII \Relative\<9>\selection of parameters for\- 
65 6D 61 ‘ 61 6 6F 3 gf ? 4 CEE \ a Relative file\ 
6C 65 52 20 6 ¢ F 6 3 4 CFC 
65 6C 69 66 6 6 4 61 DOA 


C.ADT: .ASCII \Exit\<9>\to leave the FDL Editor after c\- 
2 3 \reating the FDL file\ 


g 89 90 oe 


73 20 61 
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O00 Generated Code ~300 138% 99:38:93 PE KSUMGAASTER  FEDF-SRCJEDFASK.PAS: 1 (82) 
6C 7 9 61 69 74 6€ 65 75 71 6 D14 C.ADH: .ASCII \Sequential\<9>\selection of parameters f\- 
5} "3 ei 2 1 ? f p ef e ue i 046 \er a Sequential file\ , 
6 ge 69 ee § ei 74 6 fe 1 DSE 
64 «(OF § 6 9 70 75 68 6 F D4C C.ADI: .ASCII \Touchup\<9><9>\remodeling of parameters \- 
6D $ oF 66 6F 8 § 9 6C DSA \for a particular index\ 
1 20 61 2 of 6 5 74 474 
6 g2 ge gf e? 3 48 85 5 fF e7 4 He ae C.ADJ: .ASCII \(Add_Key Delete_Key Indexed Optimize\ 
meena OE EB OSG tod: pee ae creed cea oe 
am Ti 6 S 65 76 69 74 61 . 6S DAS C.ADK: .ASCII \ Relative $ tial Touchup) \<0><0><0> 
5k 88 83 98 SF 88 $3 St § % 6 oe rie prec iee nint: einte . 
7% 7 $9 72 63 53 20 67 of 69 74 rt 8 § 8 C.ADL: .ASCII \Editing Script Title\<9><9>\ (Keyword) \<0> 
6F 7 9 65 48 28 09 09 65 6C 74 33 ? $ 
80 D 2d 0 C.ADM: .ASCII wee 
9 $0 A 0 C.ADN: .ASCII <9>\: \<0> 
20 6F 74 20 8 44 46 sé 20 $3 4 0 C.ADO: .ASCII \(Type ‘FD’ to Finish Design)\ 
9 6€ 67 69 65 44 68 73 69 of 69 0 
2 61 50 20 65 6C 69 46 rH! $9 3 69 68 C.ADP: .ASCII \Which File Parameter\<9>\(Mnemonic)Crefr\- 
6— 6F 60 65 $f 4D 28 09 € § 4 65 6D \NeshI\<9>\: \<0> 
3A 09 SD 68 73 65 72 66 6 2 58 29 $3 
00 00 09 C.ADQ: .ASCII <9><9><0><0> 
20 74 72 65 73 6E€ 69 20 4SF 74 09 64 64 C.ADR: .ASCII \Add\<9>\to insert one or more Lines into\- 
69 6C 20 65 72 6F 6D 20 72 6F 20 $2 of \ the FDL definition\<0> 
46 20 65 68 74 20 6F 74 6E 69 20 73 6 
00 6€ 6F 69 74 69 6E 69 6 5 64 20 af 
6F 6D 65 72 20 6F 74 09 65 74 65 6C 6 C.ADS: .ASCII \Delete\<9>\to remove one or more Lines f\- 
65 72 6F 6D 20 72 6F 20 65 6E 6F 20 65 \rom the FDL definition\<0><0> 
74 20 6D 6F 7 0 73 65 6€ 69 $f 
46 
00 i 
69 
65 6 
$} 
$8 


C.ADU: .ASCII \Help\<9>\to obtain information about the\- 
\ FDL Editor\<0> 


o 
ao 
o 
oO 
™m 
= 
o 
AOL ono oS 
- MOfWOO 
= 
o 
“MN 


C.ADV: .ASCII \Invoke\<9>\to initiate a script of relat\- 
\ed questions\ 


Nm 

wo 
So 
No 
om 
ano 
oo 
~n 
mo 
an 
wn 
~ 


C.ADW: .ASCII \Modify\<9>\to ghenge guteting Line(s) in\- 
\ the FDL definition\<0> 


C.ADX: .ASCII] \Quit\<9>\to abort the FOL Editor with no\- 
\ FOL file creation\<0><0> 


PRIDDIS EAA SNIP A EAA EAN NE AA NE PAPA SONIA AML VON LID EAI NAAM AAUM 
CWDS LS FMVS WTMN ODO LNMVOONOLUVUIFMNMNOG & LM Fh DOO] NODODNVOMOUW10 MOONS U9 Va 


SOOQGGOCOCOOOGOOOSOOSOOOSOSOOOSOOSOOOOSOSOOSOOSOSOSOOSOOSOOOOOOOSOOOOOOOOOOOOO 


SOOCCOCSCOCOCOOOOCOOOCOOOSOOOOOOOOOOOOOOoOoOoOO 
FOS OMS LOOM LOOM L AS OPOMOOMONVNLOSOPOWOSOPOMOOG 


on 
5Sm 
Voc 
oO 
Woo 
aon 
~wWw 
™m 
mo 
oa 
oon 
Ons 
mee 
ANS 
OWo 
~ 
oo 
NMOALOON NNO 
SRESSEGASHAMASDVS 
NOOO 
Wino 
Veleoi: lor 
ao 
wen 


C.ADY: .ASCII \Set\<¥a hte specity FDL Editor characteri\- 
\stics\<0><0><0> 


] 


a PS . . _ , ~4 


, 3 
16-Sep-1984 00:56: VAX-11 Pascal V2.4=-277 p 148 
Generated Code ers Ti 90:38:93 DISKSVMSMASTER: LEDF .SRCJEDFASK.PAS;1 (3%) 
72 65 74 63 61 FD4 
FE 
6F 74 77 «+65 fee C.ADZ: .ASCII \View\<9>\to displ th F i\- 
es 29 e3 és fe ie Nod badge LL splay the current FDL Def 
5 44 64 64 5 C.AEA: .ASCII \CAdd Delete it Help I ke Modify Quit\- 
i 6C 3 68 20 f \ Set View\<d<D> es 
44 é 20 ee g fi C.AEB ASCII \Main Editor F Cion\<9><9>\ (K d)CHe\ 
AEB: n r Fun ~ 
63 43 F 4 Ff NES eS hant pees sisinnas 7 
Be ee 
74 4 op é es 0 C.AED ASCII \Default i ipts\<9>\(K \ 
AED: efault responses in scripts r\- 
20 ee $9 20 i be \d) CAUtoJ\<9o\: \<0> ° te 
00 2 A tf 
20 9° é 69 9% 0 C.AEE: .ASCII \(Brief Full)\ 
69 74 70 6D 6F be C.AEF: .ASCII \Prom ting level for menus\<9>\ (Keyword) [\- 
$B a us oF $6 Cc \FuLlLIN\<9>\: \ 


| 
C.AEC: .ASCII \(Automatic Manual) \<0><0> 


PRIM LAPLAND LAAN LIN LIMES NAP UNIO VP LWA AUMIA ONS SIMI NA EAA NMO LS W100 
PRONG LOD OMD OOD WNW OOD OM OPM VODOWOD FNM OO OWL MIPIM OC NOOWOGOCo— 


DF ALAQAWAMUIIA OT EU NE WIS OUT NU OD DUO 1S ODONINIG OUI @ SWS FO SF OF OOON) 


Oo 
VIE 
oOo 
ea 
DEAD P MAA AOA LANA LADD MAA AA NINA VINE MAN NINN EUPIA AALS AOAANLE NEOLNMOCON 


C 
A 
oe 
99 79 OF8 C.AEG: .ASCII \Key\<0> 
69 74 69 6F ee C.AEH: .ASCII \ Position\<9><9><0> 
0 47 FB C.AEI: .ASCII \SEG\<0> 
D 30 FC C.AEJ: .ASCII <9>\(0-\ 
20 3A 09 5D 30 100 C.AEK: .ASCII \)LOJ\<9>\: \<0> 
64 41 20 108 C.AEL: .ASCII \Will Added Records be Distributed Evenly\- 
65 § 0 116 \ over the\<0><0><0> 
45 4 4 124 
65 6 4 20 7 132 
of 61 69 74 6 13C C.AEM: .ASCII \Initial\<0> 
65 64 61 6F 6C 144 C.AEN: .ASCII \Reloaded\ 
ee 23 1H 29 M 13 C.AEO: .ASCII \ Range of Pri Key Values\ 
6F 4E 2F 5 65 1$6 C.AEP: .ASCII \(Yes/No)CNoJ\<9>\: \<0> 
00 79 174 C.AEQ: .ASCII Mey\<o> 
65 67 ‘ 1 : 178 C.AER: .ASCII \ Changes al lowed\<9><9>\ (Yes/No) CYes]\- 
6 9 9 186 <9>\: \<0><0> 
7 *F i 4 C.AES ASCII \Key\<0> 
: e 
$3 69 6C 7 1 § C.AET: .ASCII \ Bupticates al Lowed\<9>\ (Yes/No) [\<0>- 
8 09 64 7 E <0><0> 
98 0 3 5 C.AEU: .ASCII \NoJ\<9>\: \<0><0> 
A 09 5D C.AEV: .ASCII \YesJ\<9>\: \<0> 
9 7 100 C.AEW: .ASCII \Key\<0> 

6— 6 $8 § 104 C.AEX: .ASCII \ Segmentation desired\<9>\(Yes/No)(No]\- 

3 $3 ig $? g3 : 3 <9>\: \<0><0><0> 

9 $f 1 § 6F 1FC C.AEY: .ASCII \Siebal Buf ters des ired\<9><9>\ (Yes/No) (N\- 
2 f 9 92 a8 \oJ\<9>\: \<0> 
61 4 8 g 6C if C.AEZ: .ASCII \File Capacity in Records\<9>\(0-1Giga)\- 


] 
3 } 
706-000 Generated Code "or 3eb=18be 99:38:50 TsKSVMSMASTERY ihe Ue cseorasx.eas: 1°28)? 
20 30 28 09 73 64 re 14 $3 $5 <0><0> 
CTAB: TASELT e9o\s “AcO> 
C.AFC: .ASCII \Number of Records that will be Initially\- 


\ Loaded\<0> : 


C.AFD: .ASCII — of Records that will be Reloaded\- 


moO Sr 
So 
on 
ow 
w 
aw 
~rT 
wo 
Ss 
on 
™m 
-o £ 
NOONOOCON 
VENOCOANO 
SOLUS MEeW 


C.AFE: .ASCII \into the File\<0><0><0> 


PEALE AOMINNG NNO NONIuUIon 
fore —-ocoo70c 8 fF£OwWsfFowvoo70 2o 
FAAAMA SWAN DOA AA NA AA NWN Oe 


= 
ODO OM" PP PC OOMUNL UNF UN PO wn 
WU OO FFBWMOVQOOOWD +S OOOO VMN Lew 


BWMOMLMOSOWPY MOM FLOODS DWOSDVOMOPOMOOWON Wo 


5 9 1 
1 1 
| : | 
1 
an 
1 
$ 1 
F 1 
: BH 
7 1 
6 1 
6F ! 
29 61 67 69 47 31 2d 30 4 $ 1 C.AFF: .ASCII <9><9><9>\(0-1Giga)\ 
8 1 C.AFG: .ASCII \C-J\<0> 
0 9 1 C.AFH: .ASCII <9>\: \<0> 
0 0 1 C.AFI: .ASCII \_: \<O0> 
° 9 1 C.AFJ: .ASCII <9>\: \<O0> 
0 7 7 $5 76 6F 6F 43 of FG 8 1 C.AFK: .ASCII $e oat Semvert NoFast_Convert RMS_Puts)\- 
4 72 6 6 6 F 43 SF 74 73 61 sf 1 <0><0> 
44 00 2 3 74 75 50 SF 53 2 1 
4C 20 6 +3 e? reg 2 el 2 4 a , C.AFL: .ASCII \Initial File Load Method\<9><0><0><0> 
67 6€ 69 64 eh oF 33 6° $3 é3 é ° 2 ! C.AFM: .ASCII \File Reloading Method\<9><9><0> 
74 73 61 46 5B 29 64 72 of a S H ‘ i: : C.AFN: .ASCII \ (Keyword) CFastJ\<9>\: \<0><0> 
52 20 6C 61 69 74 69 6E 49 20 6c 69 57 1 C.AFO: .ASCII \Will Initial R ds Typically b ded\- 
SHRRE SPREE EERE F 5 Location ome 
00 7 4F 2 1 
72 6F 63 65 69 6 i 9 29 6c 6 9 85 1 C.AFP: .ASCII \Will the Records be Reloaded Typically i\- 
$3 Se 89 50 9 Se be a eS C8 98 S$ 4 $5 1360 pushcadengetest 
0 65 64 4F 13A 
50 20 67 6E€ 69 64 6E 65 : ig 41 20 7 1 ry} C.AFQ: .ASCII \by Ascending Primary Key\<9>\(Yes/No) [No\- 
as 88 28 05 79 65 48 20 5} 61 $0 ! "3 1386 Voce aw 
69 64 2 41 23 $6 6F 8 gg 62 6D 75 4€ 1300 C.AFR: .ASCII \Number of Additional Records to be Added\- 
So ge 8 bt St fF 0 SB St $4 30 13¢¢ Tact estes 
00 05 65 74 és 13FA 
69 46 20 6C 6) \] * +4 ei rh ¢ 2 6 4 1209 C.AFS: .ASCII \the Initial File Load\<0><0><0> 
20 67 6E 69 74 1 of oc e3 Se ; ¢ ri 1236 C.AFT: .ASCII \the Reloading the File\<0><0> 
50 30 5B 29 61 67 6 5 $i D $ | i C.AFU: .ASCII <9><9>\(0-1Giga) LOJ\<9>\: \<0><0><0> 
72 7 D 6F 43 20 79 65 48 4 44 1444 C.AFV: .ASCII \Data Key Compression desired\<9>\(Yes/No\- 
4 § *¢ 5 é3 be 90 Ge BF 89 3 3 5 1453 Siar t Cent] Stet 
5D 73 6 9 5B 29 6F 4E 2F 73 65 8 be 109 
6F 4 9 64 72 6F 63 65 4 $I 4 123 C.AFW: .ASCII \Data pecore Compression desired\<9>\(Yes\- 
M 4 fr gf 4 ? 3 7 $3 i 1085 \/No) CY¥esJ\<9>\: \ 
A D 149 
73 73 65 72 70 6D 6F 43 2 fh f 64 6€ é 14A4 C.AFX: .ASCII] \Index Compression desired\<9>\(Yes/No)CY\- | 


He? 56: . L_V2.4-277 Page 150 
+ at +95 Cod ae ef 99:38:93 DL SKSUMSMASTER: FEDF-SRCJEDFASK.PAS; 1 (8) 
ve 73 sate > F $f 2 1483 \esJ\<9>\: \<0><0> 
8 r 14¢ 
i i se s fe s 5s tt s ‘i i i 1265 : ASCII \Target_disk volume Cluster Size\<9>\(1-1\- 
 % 3 7 RS ef i 4 fi c i ee VeIgs ESI eo>\s \<0> . 
65 7% 3 ts gc 14EC 
i 39 i i seis ey | R 5D 13ho : ASCII \Records can span disk blocks\<9>\(Yes/No\- 3} 
PERE SE 2 FG oe ; f t Pconpeett EvessicSou: ked><0><0> : 
7 é3 F 6c 3 3 68 9 151¢ ’ 
50 6 85 85 3 F 4E fo ; 3 0 3A 3 ! ; C.AGA: .ASCII \will Regis fonet Records Typically be Add\- Ft 
PHRERRHRE REE RE aH: oA ; 
ory ea  & p gE 5 fP 1820 CII \Order Ascending Primary Key\<9>\(Yes/\- ar 
€ $ $3 3 4} 20 3 5 é ef i 6 ee pnlnges \No) ENOS\<99\; \<09<0> # 
48 20 fe 61 6D 69 : p d 187¢ 
ae ee Aaa if : be 1280 C.AGC: .ASCII \File Prolog Version\<9><9>\(0-3)C(3]\- Fei 
3 5B 29 33 2 36 28 09 09 fe 13Ae 
B07 ge Se HTBBD c-nep: ASetT Merete oo, ces i 
ee re ae oe ae ae 150 CcAGr: “ASCII XSEGISO3 c 
00 00 &p 09 1308 ome! CII \{-J\<0> 5¢ 
58 15C8 C.AGH: .AS \ 
Bee Tea RET Ree sa semen tater é 
20 64 65 73 20 73 69 73 61 68 6p 43 1300 ¢. : \Enphas is Us 53 
oo 8 80 80 20 $5 09 SA 7 ss 5) 56 13F8 C.AGK: ASCII \ Smaller_buffers )\ 3 
erate al So pi sol ? 20 46 ‘ $5 1e0c C.AGL: .ASCII \ Flatter_files )\ 65 
anger hao hol se a $9 1620 C.AGM: ASCII \Suggested Bucket Sizes:\<9><9><9>\C \ 
75 42 20 64 65 7% 6 Ieee . 
oa eeeerewetiit HEEE EAGW: ASCH YINOZDr se an anders \ed>c@OXC \ 
62 6D AGO: 
65 76 65 4C 20 66 6F 20 72 65 $3 of 164 
A 78 65 64 6€ 49 20 6€ 5 165¢ 
2 39 1865 AGO “ASCH \Number of Buckets in Index:\<9><9>\( \<0> 
68 $3 75 42 20 GF 20 72 65 $9 5 18¢e Aer 
09 SA 5 65 be CF 49 80 OF 88 ere ‘ares 
5 ; 1884 Frags: ASCH \Pages Required to Cache Index:\<9><9>\( \ 
64 65 72 69 75 71 65 52 20 73 65 67 G1 : ; 
49 20 65 68 63 61 4 19° 
i . ate : 3 g ie TAU: “ASCH \processing Used to Search Index:\<9>\( \- 
65 73 $5 20 67 Gt 69 73 75 ; 4 1686 20> 
6— 49 20 63 60 30 38 A? i ef C.AGV: ASCII \)\<O><0> 
| 6 16D4 ELAGK? TASC] \“Bucket Size\<9><9>\¢\<O> 
09 09 65 7A 69 53 20 74 65 68 $5 5 1ée3 


3 
EDF ASK Ibe§ =1984 00:56: VAX-11 Pascal V2.4-277 P 151 
vO0-000 Generated Code "Br8Sb=19b6 19:88:90 DISKSVMSMASTERSCEDF GRCIEDFASK.PAS;1 280) 
00 00 00 SB 3 D 16E4 C.AGY: .ASCII \s632£ \<O2<0><0> 
65 66 75 42 SF 7 5 6C . i F5 ec AG ASEH Atti Buffers Flatter_Files)\<0> 
eo $ oo r 
ge 83 fe Se 98 88 FE $8 SF RE 2 a ? 16re ee ee 
44 20 re 6F $6 7 9 73 61 ; 6D 4 1 6 C.AHB: .ASCII \Faphssis for Default Bucket_Size(Keyword\- 
B25 be 8 SF FF 9 8 fe 8S 7A 8 § i oe 
0 173A 
0 3A 9 5D 74 61 6C us 173C C.AHC: .ASCII \FlatJ\<9>\: \ 
00 00 00 20 SA 20 SD 6C 6C $1 6D 5 1744 C.AHD: .ASCII pe S| : \<0><0><0> 
? 9 $2 4 1720 C.AHE: .ASCII \Key\<0> 
72 65 30 0 gc C 69 $8 8 4 6F § 2 1 C.AHF: .ASCII \ Leed Fill Percent\<9>\(50-100)[100]\- 
5B 29 0 31 dD 30 3 ; 4 fe $ g ; 1275 <9>\: \<0> 
65 20 73 69 68 74 8 ee 63 61 sf as ¢ 1778 C.AHG: .ASCII wept ace this entering secondary\<9>\(Yes\- 
ee 8 $6 GF be fF $f Bf 8 03 fe $8 1580 mina ect ire 00 
00 A 09 5D 6F 17A 
65 gc 9 66 20 65 6C 69 46 61 9 $1 44 15h C..AHH eASCII \Data File file-spec\<9><9>\(1-126 chars)\- 6D 
OS SU RARER SREY Ge sie sipeans . 
8 60 $5 $i 1700 C.AHI: .ASCII \: \<0><0 60 
0 65 6C 69 46 20 73 69 «73 «79 of 61 3 4) 1704 C.AHJ: .ASCII Veolyeis sie le file-spec\<9>\(1-126 chars\- 09 
ge ge 78 Ge Se 35 98 $3 Gt be Ss 85% 88 O17 pene 52 
F 09 
9 90 20 2h 61808 C.AHK: .ASCII \: \<0><0> 68 
9 66 20 65 6C 69 46 20 74 «75 Q 4 4F 01804 C.AHL ASCII \Ousput File file-spec\<9><9>\(1-126 char\- 
SeEREGERH TERE Ee oa : 
A 1 C.AHM: .ASCII \: \ 6E 
54 20 4C 44 46 20 72 6F $6 0 74 78 é 4 Rs C.AHN: .ASCII \Text for FDL Title Section\<9>\(1-126 ch\- 
28 O09 6E 6F 69 74 63 65 0 $3 C 74 69 183E \Nars) CnultI\ 65 
6— 5B 29 73 72 61 68 63 20 36 6 zt ep d ’ 43 09 
20 3A 185E€ C.AHO: .ASCII \: \ 75 
00 79 8 4 1 5 C.AHP: .ASCII \Key\<0> 65 
20 32 33 20 3} : rH e 8 ; 98 3 és p 1 ° C.AHQ: ASCII \ Name\<9><9><9>\(1-32 chars) CnullJ\ 53 
A 187E C.AHR: .ASCII \: \ 47 
6— 69 42 20 34 6E 69 4 § 2 6€ 69 4 $ 1 5 C.AHS: .ASCII \(Bin2 Bind Bin8 Int2 Int4 Int8 Decimal S\- 62 
ARHREHSSR EER ER Tee Anema . 
ee 2 ee | eee . 
48 28 09 09 65 70 79 54 20 $1 4 $1 44 6 18B4 CLAHU: ASCII \ Data a. Type \cB><9>\ (Keyword) [Str]\<9>\: \- 65 
3A D 72 74 53 5B 29 64 72 6F 77 79 3 : CF <0>< 
6— 65 72 65 66 65 52 20 H $ ’3 e3 : ' 4 C.AHV: .ASCII \Key of Reference\<9><9>\(\<0> 
00 8 A 3 30 53 é 1 é C.AHW: .ASCII \ACOD\<o> 4: \<0> 
73 79 65 48 20 66 6F ¢ 65 D 18FO C.AHX: .ASCII paper of Keys to Define\<9>\(1-255)C\- 
20 31 28 09 65 6E ; 3 M 33 ge 6 1 FE ~ e ><0> 
A a3 4 13 f C.AHY: .ASCII \IJ\<9>\ 
75 74 65 52 SF 65 67 61 69 72 61 4 1918 C.AHZ: .ASCII Siteeeiaen | Return FORTRAN None Print)\ 


Page a 
3 : VAX-11 Pascal VE seeere JEDFASK.PAS;1 (84) 
=-$ep-1984 00:56: TER: LEDF..SRCJE 
ted Code ier seor 19g 9:38:95 DiScSunsmas 
EDFASK Generate é 
voe“bbo 1 4 32 4F & } 1984 SCII \Carriage Control\<9><9>\ (Keyword) CCarrJ\ 
6E 6F 4E 20 4E 4 7 ei ; if 43 | it C.AIA: A M3 
6 
4: Le oF 5 é $9 t 09 p t ej 4 1338 C.AIB: .ASCII \(Fixed coctonpnay is 
jable V 
6c 62 61 69 72 61 $6 20 be . ted 2 1986 C.AIC: ASCII \(Fixed “ : Pel fi Prvll h apl 
r - 
TITTITTIIt ee Cl 
74 53 20 2 43 5F 7 
a2 a ¢ & 35 $$ OC OF ; 6 \9A \(Keyword) CvarJ\ 
4 6€ 55 4 6 t\<9><9><9>\ (Key 
2 88 8 et SS 23 i 90 ; i 13ue C.AIE: ASCII \Record Format\< 
4 19¢ 1=\<0> 
61 g 8 3 6 2 e 00 1 3, e : 19 C.AIF: .ASCII \Control Field Size\<9><9>\¢ 
4 6E€ 6F 1966 <9>\:_ \<0> 
meee Be EEE EGE ABE fctits tty Utz te 
0 6E 61 65 4D 1A00 C:AII1: ‘ASCII \Recor \<0><0> 
osmon ee eee ey 1 ES AEH SLR cn 
00 00 00 3 $1 36 ; TAIC C.AIL: ti Steen 
00 20 Sa 08 JASE EoAln, cASELL Séocbocoeco> 
09 09 shea boats “ASCII \ Key\ ion \<0><0> 
68 70 iY if 4 0 Hy ; C.AIP: .A ine\<9>\Bucket Size vs sapeg Sepene 
65 53 20 65 70 79 29 ee a3 i ee ate SAORe AREER SY Seeveor het ise ve Sade 
oi 8 oo 2 BB 6 3 16 4 70 1A6 Size vs _—_ Load Fill Pe 
65 & 2 i 3 rf ei ‘ p i 85 82 TAYE C.AIR: ASCII Sead ae bedes Depth\ 
00 74 6F 5 &3 4 6 65 7A 1ABA 
69 93 20 74 65 6B G3 7 ¢ 8) 4% 50 1498 
64 61 6F 4C $3 65 0 3 C 6C 6 § 1AA6 s Key Lengt\- 
te 56 98 88 és oe 43 30 93 96 8 7 79 i 1AB8 C.AIS: ASCII \Key\<9>\Bucket Size vs, 
75 4 p 1AC6 
Hs 30 20 0 20 2 #0 2 ée 4¢ ; %3 és 1Ae2 Record \- 
20 30 $0 30 30 6 mm & 35 73 76 30 26 $3 TAF rd\<O>\Bucket Size vs 
20 44 20 78 65 64 6E€ 49 00 6 ¢ 1AF4 C.AIT: ASCII \geco vs Index Depth\< 
72 «=6F 0 
7% 65 $5 > 9% 2 20 6 fA ‘ 1816 d Rec\- 
0 50 & % 69 53 3 ef 20 : 2 5 1BIE FER AOE ag OE 
8 és 64 6& 49 2 09 00 of me 0 63 ee 1884 tse tment ny Depth\ 
9 53 20 74 65 6 36 73 96 62 TA 1680 
5 52 8 e 8 3 r £3 1B5E ional Recor\- 
ef ee ie ee Se SS $e $5 3 é 1 Add\<9>\Bucket Size vs Addition 
4 20 4 65 64 6E€ 49 i? $3 1870 C.AIV: .ASCII \4 Count vs Index Depth\< 
’ rh s p 1B7E 
ZA 69 53 20 74 65 6B 63 Q 28 30 8} 188 
ce 9S GF 48 26 ge Ge 9 20 98 7% 30 30 fe tty 


153 
" V2.4-277 Pa 
if sen- 19 19:38:93 DTScSUMSMASTERYEEDF GRCJEDFASK.PAS; 1" ce) 
E al + Generated Code 
><0> 
* Oar? IBAC C.AlW: .ASCIZ \CLine FALL Key\<O 
6c 6 rd Init 
saneeona ge g gH TBE can cscit «nue MN 
F \<9>< 
Ht 20-6 TR AH Hib conve cscit spe ype» etntn 
70 79 7% H 1BDE 
Seite IBS cA: ASHE Moet: | 
0 3a 08 8 : t ee ¢ }CQ4 AJB: ZASCIT \Keyd\<9>\z \<0> 
A 09 9p 2 EOE C-AJC: CASCIT \Recd\<Oa\z \¢ 
G3 Of 8 6 i 1e14 CcAN: TASC Ade N<O\: \ 
A 09 5D 74 1C C.AJE: .ASCII \Add : 
° i 69 89 03 i ees ASCH (ives rommarts Selection \ 
2 A, hy K\<15>\\- 
= Ff : 74 §9 1036 \<27>\)0\<14>\ Laqqaaaagagaaa > 
v2 61 6C 7 fa ft : j 38 79 «74 4 C.AJH: .ASCII \ k\<15>\ \ 
SUL LLLLLE HF Sanh iaseaugageeeeaeeetBS crash leoe 
9 20 20 20 1 71 71 71 71 M1 be 1¢60 
4 ee 4 es De ed 9 20 20 20 OF 6B fi 1¢7¢ 
1 71 71 6C OE 20 so FF ot 
COMBRAAB ARTE GY 1B can MEL SPAR on ay me sore 
1CA ° ris \ 0 \<14>\x\< 0 Data\- 
F 78 OF 20 30 20 <13? A<1Q>\x\<15>\ Key 
BRERA ERR ARH EE He eRinasiRhat “Tease 
20 61 74 61 4% 20 9 20 20 20 OF 78 OF 20 1CD8 
4B 20 OF 78 OF 20 30 20 20 20 30 fi gs 01 C08 Beg bi 
"Sag t 9 30 20 20 ASCIT <14>\x\< \c14r\x\= 
OF 9) 6 48 30 OF 78 OE 0 0 F ‘8 3 \chs CAM: CASCHT \ spi” Acieai taagaaaagagagau\ct3>\ 
20 20 20 20 20 20 Gr $3 OOF 20 6 50 30 9 100E \ \<14>\tqqqqqaqaqaaaau 
SCC PEEEECE ih 
71 71 7 171 71 
SSR RRR AHH BBG HE HE en ome 0 Indes \ct4o\9\- 
105C C.AJK: e 5>\ 1 \<146>\xn\<15> ey 0 Inde\- 
. ? Q o ? A <} 1 \<14>\x\<15>\. Key 
RRL ESRERR AGREE He SRMTRsot IRMA 
SPREE EE ER Rea E SD 188 
0 OF i950 1DA2 \<0> . 
salted a é ‘i i oF 98 Oe } $3 fe 1DAE oASETE <UA>\n\e1S>\ \e0e \<14>\a\ 
ree e 2 id aaaae TS ORAL SOROS ms 
0 ; a 1DCA C14>\x\c15>\.-  \c14>\tqqaaaqaaaaaaa 
oe : 3 3 p ° F 6 ; F : 1908 <15>\ 0 \c14> 
y f f 10F4 
non mt fe OF 30 17 71 7 1e03 
F 75 71 71 OE 0 ASCII <15>\ \<0> Data \<14>\x\- 
SO RAAT AD % 3 0 Hi C.AJM: ASCII SPAM LESU NST Key.n dete Ne 
< x 
oF 38 26 $$ 36 6 4 Of p 2 F ie NACI OIE 2 \<14>\x\<15> 
po eg e : 0 OF é Of 20 165 
PREBRRRR ASE! 


> 


wT 
wo 
— 


Ls 


Pa 


EDF .SRCJEDFASK.PAS;1 ( 


> 4-277 


Pa 


VAX-11 Pascal Ve 
DISKSVMSMASTER: 


Sepnt9Rs 00:56:05 


1 


Generated Code 


20 OF 78 OE 
5 
5 
; 
! 
; 


E hal + 


t t 
- a Pt 
aw coo 
ao) co 
4 4 Cc coo 
ae | ae ee) ‘ec 
x= x= “sre 
= - € AST 
A Ax wo 
wT wTon -oc 
_- —TOA vo 
v vceww as 
=” on Oe -” SF 
= “Mv A E€ 
A xcA” wea 
wv oo Wx - A 
- ao. at al v wt 
VA Cova eh aa 
i a —we Ts =AV 
xe xe one 
ade A cw-7vVv o_— 
AA” AA” ov 
we NAST o- 
-—— @on--m™ on 
vv wVvVv coo 
Pe ad oo 
Aw x ax ACCA 
OoAZ” AAZ ococowm 
VNA A OonA A voo- 
, ae aS Vevwr wn “-ocov 
Vv- = Avo? = oo- 
ede Ae ovrve-Vv “oon 
AxX/“AZ Vx-AZ” AECcS 
Wr WK AZ” Wx wna oo 
-A oA ACS 
vw VA var VA vwoo 
oo Ast oor Ast “n- oS 
xv x<_— v x<_— xveEec 
, de ee A , ee ee de a a A 
A AAW A AAW” A AT 
Tr we ww we TrTvwo 
re ee - =o x - -o 
Ve-VV= V"VV= Verve 
Coen) eee tee! 
keel mae et 
uw vowv uu 
mn mn nn 
+ 4 << << 
- es ese _ . 
z Oo a. 
= | | 
<x << — 
— — 2 
(Ss) Ls) Yo 


w<toowvou<t woos vow oOowsuocw 
MOP-OC << OOV OWL OK KUM TMNOFF 
AADUADUAD RAD AASUASUASRAS LALA AA LA te Oe te oe te te 
CLL LLL LLL LLL LCOS OT 


\- 
\- 
\- 
\- 
\- 
\- 


A 2 s 2 2 2 
Oo ++ -<-<- ++ ooee --+ 
v | ‘e i 
= ‘6 ‘et =x § 
~ ee oo ‘et e@ ‘ 
awT i) be te ~TcTwo 4 
Nw te oa | cc § 
~ et aa te = a 
& et ee g 
os ‘6 oo | oo y 
20 te ‘et 4 
—e et ~~ te ~ AN 6 
| ee ‘ee e@ y 
‘et be eS 4 i | ww t 
‘e te t 
++ ry ++ occe --+ 
oo -—-— 
++ occe -—-+ ooee + 
| ¢ t 
‘t a = x § 
~ i) oa 4 eo@ y 
~nMm a) Cad 1 uvo0To t 
cw a) oe a cc ‘ 
~ a) aa v oe $ 
@ a) a a 
e@ te oo a oo a 
Act a) a QB 
ooL ‘6 ~~ Q ~AN t 
vv ‘6 oe 7 ee t 
-” ‘eo be 4 ‘ MM a 
tta A tA A tA 
a ++o ----2D --+O ----2 --2+O 
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irene oe eer of keys in Indexe\- 
\d files\<0> 


\Outgutl<PocPo\ ft Leapes of FDL Output fil\- 
\e\<0> 


\Prompting\<9>\Full or Brief prompting of\- 
\ menus\< ><0> ibe, 


\Responses\<9>\usage of default responses\- 
\ in scripts\<0> 


\(Analysis Display Emphasis Granularity\- 
<0><0> 
\ Number_Keys Output Prompting Responses) \ 
\Editor ghorestertette to set\<9>\(keywor\- 
\d) \<0><0> 
\C-J\<0> 
<9>\: \<0> 
\Maximum Record Size\<9><9>\(\<0><0> 
\L-J\<0> 
\0,\<0><0> 
\) £03\ 
: \<0> 
<9>\: \<0> 
<9><9><0><0> 
\ Legal Primary Attributes \<0><0> 


\ACCESS\<9>\attributes set the run-time a\- 
\ccess mode of the file\<0><0> 


\AREA x\<9>\attributes define the charact\- 
\Neristics of file area x\<0> 


\CONNECT\<9>\attributes set various RMS r\- 
\un-time options\<0> 


\DATE\<9>\attributes set the date paramet\- 
\ers of the file\<0> 


\FILE\<9>\attributes affect the entire RM\- 


Wow 


aos 


Page 157 
.4°277 , 4) 
B23p=1986 19:35:50 DI SKSVMSMASTERY EDF <SRCJEDFASK.PAS; 1" <8 
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EDFASK Generated Code \S data file\<0> 
we-bbo 74 g 5 89 $0 ef eas 9>\attributes set the journalin\- 
er SF St bo 88 Oo 8 e 92 $6 2 BC C.ALG: | ASCII he norancenre af ike Tria 
‘ 9 72 Th 7% gl Op oc & 2 i : i ie} 608 : 
¢ 6 the characte\- 
A 20 6 if — 69 é ? 60 3 ibutes define 
6A 2 61 70 $8 e ef 30 98 92 e ge 83 be oe \KEY \<9>\attr “ 
of sae 7% 7% 61 09 79 20 ; % 6 706 - ches 
74 «75 6 , $ at $9 ° 63 4 1 68 g at ; \RECORD\<9>\at tributes set the non-key 
eo 83 SB fs 8 3 ae 68 GF 4 ree sie maaan gt a yh es howe 
62 69 7 74 fe i és 20 73 : be 0 ti8 ibutes set the run-time \- 
8 ; 79 6 2 756 HARING\<9>\at tributes se 
6 9 $2 § ee f 3 $3 8S 61 63 20 26 of 6 $b4 CoALJ: ASCII \SHARING\<92\at tributes, s 
TEEPLEESLLEEE He eee ae 
\attribu 
55 és 68 7% 30 66 oF 30 GF be e e¢ 85 88 OS7A0 C.ALK: ASCII LEVEN <p at ectbytes Pocunen 
1 09 4D 45 54 53 65 7% O27AE 
69 72 74 7% 6F 64 20 027BC 2 
GF $f 74 3 $3 gp 3 ee 69 He $i f 20 Ht 0 As TITLE\<9>\is the header Line for the FOL\ 
6 fe 69 20 G3 8 G6 68 Ss 00 90 73 6p O59 C.ALL: ASCII sin e\eeis 
45 4 O27EA 
74 20 73 69 09 65 64 61 $5 7F8 FILE JOURNAL \- 
ie $s #0 2 Se Mh te 06 8S es 09 09 aeh0e C.ALM: ASCII \CACCESS AREA CONNECT DATE 
+ ] 2 33 a 8 oO OG ogee CORD SHARING SYSTEM TITLE) \<O> 
to fe 30 e8 8 4 cf 2 53 te ota 20 i 35 05880 C.ALN: ASCII \ KEY RE 
00 4¢ 4 2 20 59 283E 
43 4 52 41 
3% 30 ft as 82 SS $3 $8 60 29 a5 te 09 08 ie EcALP: CASEI] \ Current Primary Attributes \ sani 
$1 $8 62 fi 73 $3 é ts é ie i $$ i i C.ALQ: .ASCII \ AteF ibutess\ 
65 0 6 - 
f AiR Se rf ! i e " 0989, ASCII \Enter Desired Primary\<9><9>\ (Keyword) C\ 
i 1 6 69 AS C.ALR: ° <0><0> 
41 20 79 72 $) 23 65 74 oe $3 <0> 4,149,157,162.- 
9 73 65 44 f gs 9 § 100,107,111,128,144,149, 
rs $3 if 3 +4 09 09 79 $ 3 s 64 7 oF i: C.ALS: .LONG 12410485 19 186,194 5030309 
90000068 0900064" stooss 0090 ab 3 ae r6 E\ 
000095 000A Y >\PRIMARY_TYP 
eh : D 0000 én oH ; 310 “ASELL  <14>\DUPMY PRIMARYS\ 
45 50 +4 Fe} HA 35 F $9 4D 4D 3g 4G 3 928 “ASCII < >NACCESS\ 
phtets SHO gH By REEL SERS sss oe nen 
1 
59 4C 41 4E 4 945 
41 SF 466 4F SF 53 49 53 “i435 


——— ——_——-—-— 
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4B SF 46 4F SF 53 49 53 59 4C 41 4E 4 Of ee ASCII <15>\ANALYSIS_OF _KEY\ 
41 45 52 41 04 $3 .ASCII <4>\AREA\ 
54 43 45 af ae iF 43 7 9 “ASCII <7>\CONNECT\ 
EER Ge AEE pu) 
% 4 45 ha 8 5 970 “ASCII <S>\IDENT\ 
4C 41 dE 5 23 4F 4A 976 “ASCII <7>\JOURNAL\ 
3 45 4 3 976 “ASCII <3>\KEY\ 
24 hb 53 oF 43 4 9 "ASCII <7>\RECORDS\ 
47 4E & 22 4) 48 7 98A “ASCII <7>\SHARING\ 
4D 42 4 23 5 b 992 “ASCII <G2\ SYSTEM 
00 45 4c 54 49 34 3 it ead ASCII 3M TLE\<0> 
029A2 = ~=—Ssté‘«s‘«‘C@BWLKCBG r 
20 3A 20 5D 9A4 C.ALU: <ASCII \J: \ 
00000000 00000000 00000000 00000000 00070 00 9A8 €.ALV: .LONG “X70000,0,0,0.0,0,0.0 
00000000 00000000 $609 09 ett itd 0 a C.ALW: .LONG 0,°X4410000,9.0,0,0,0,0 
0000000 090000 9900000 0 9c : ‘ oats og inte 
00000000 00000000 99000000 0000 0070000 9E8 C.ALX: .LONG “%X70000,0,0,0,0,0,0,0 
000000 900000 9990000 0 OFC 
00000000 00000000 99000000 9000000 20930000 ue C.ALY: .LONG  “X31,0,0,0,0,0,0,0 
7 1B A268 C.ALZ: .ASCII <27>\Pp;\ 
28 57 28 54 38 SD 35 38 32 C 8 9 : 50 0 nee C’AMA: “ASCIT \PC27,0859:T(w(13))" Key: Good ';T(W\- 
20 20 20 0 3a 79 65 4B : 7 29 29 49 ASA \C12)5"Fair = 'sT(WC11)) "Poor; \<0><05 
49 28 57 23 54 38 37 20 20 20 64 6F 6F 47 02A48 
32) Fh & ob 86 5h 88 85 Sf 8 88 8 : Gongs 
28 57 28 54 38 SD 30 32 33 f 37 32 50 0 Ne C.AMB: .ASCII \PC27,320);T(w(13))"\<0> 
73 72 65 56 20 67 eh $5 $ i 5 $0 é 30 Ass C.AMC: .ASCII \PV-Prolog Version \ 
e H e T- \<0><0> 
00 00 00 20 20 8 4 ge 70 $b t 20 a ae ASEH \" Type .o ors 
SEER SH Ru eam: ct tbh 
0 38 6€ 69 $3 : 0 ne C:AMH: <ASCII \ Bin8 \ 
0 6 5 6D 6 44 ACC C.AMI: <ASCII \Decimal \ 
6 2 74 66 49 0 ADG C.AMJ: <ASCII \ Int2 \ 
4 74 6€ 49 ADC C.AMK: ASCII] \ Inté \ 
0 g 74 6& 49 20 AEG C.AML: .ASCII \ Int® \ 
é of 69 72 2% AEC C.AMM: .ASCII \ String \ 
00 20 20 73 69 73 61 68 6D 45 2D i 3 the C.AMN: . ASCII \EM-Emphasis \<0><0><0> 
0 BO4 C.AMO: .ASCII \ \<0><0><0> 
Ee cae ietee 
00 72 65 74 74 61 6¢ 46 B14 C.AMQ: .ASCII \Flatter\<0> | 
00 00 28 ¢ 5 C.AMR: .ASCII \ (\<0><0> 
00 90 65 4 20 70 75 44 2D 4B 44 B20 C.AMS: :ASCII \DK-Dup Key\<0><0> 
00 00 20 2 65 75 | 36 Q B 4 C.AMT: <ASCII \ Values \<0><0><0> 
Pa RAE EAN CAREHT Mt | 
99 : 79 65 48 2p 4C ; 8 6 C:AMW: ASCII \KL-Key\<0><0> 
00 20 20 20 20 20 08 74 67 6€E 4C 2 B48 C.AMX: .ASCII \ Length \<0><0><0> 


4 
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) 
| 
0 00 79 65 4 D 9 +H C.AMY: .ASCII \KP-Key\<0><0> | 
00 29 20 66 F 89 fs 3 a F B60 C.AMZ: <ASCII \ Position \<0> 
64 72 6F 6 0 $ 4 si 44 20 4&4 B6OC C.ANA: .ASCII \RC=Data Record Comp \<0> 
0 20 20 70 6D 6F 4 B 
6F 43 20 79 65 4B 20 61 74 61 4464 2D ¢ B a £ AN: ASEH \ Key Comp \<0> | 
80 5 20 20 20 35 7 p 3S Sept | 
2 B9A C.AND: .ASCII \%\ 
72 6F 63 65 52 20 78 $3 4 68 49 28 4 9 B9C C.ANE: .ASCII \IC-Index Record Comp \<0> 
00 20 70 6D 6F 4 é 33 BAA 
BB2 C.ANF: .ASCII \% \ 
6C 6C 69 46 20 74 65 68 > we & $p BB4 C.ANG: .ASCII \BF-Bucket Fill \<0> 
00 20 20 20 2 0 $ BC2 
0 BCA C.ANH: .ASCII \%\ 
6D 72 6F 46 20 64 72 6F $3 $3 3 20 4 ¢ at C.ANI: .ASCII \RF-Record Format \<0><0><0> 
00 00 00 $f 65 6 $3 61 69 ; 1 6 BEO C.ANJ: .ASCII \Variable \<0><0><0> 
00 00 20 64 6 69 4 § 8 +95 C.ANK: .ASCII \ Fixed \<0><0><0> 
0 D BF8 C.ANL: .ASCII \RS-\<0> 
69 53 20 64 72 6F 63 65 52 f 6 $1 65 4p 0 BEC C.ANN: ASCII \Nean Record Size \<0><0><0> | 
20 20 20 65 7A 69 53 20 64 3 6F 65 52 8 C10 C.ANN: .ASCII \Record Size \<03<0><0> 
00 00 00 20 20 20 C1E 
64 6F 68 74 65 4D 20 64 61 6F 4C 2D 4 4C 8 33 C.ANO: .ASCII \LM-Load Method \<0> | 
00 20 76 6E& 6F 43 of 74 73 61 46 $0 8 C34 C.ANP: .ASCII \ Fast _Conv \<0> 
00 $ 6 F 43 SF 4 ge 61 46 6F 4 C40 C.ANQ: .ASCII \Nofast_Con \<0> | 
00 20 7 4 75 50 SF 53 4D 52 20 2 0 coe C.ANR: .ASCII \ RMS_Puts \<0> 
61 6F 4C 20 6C 61 69 74 69 6E 49 2D 4C ry 0 Sf C.ANS: .ASCII \IL-Initial Load \ | 
72 6F 63 65 52 20 64 65 64 64 41 2D ry 8 tes C.ANT: .ASCII \AR-Added Records\ | 
C 8 38 a4 8 re C.ANU: .ASCII \'3\<27><92> 
6F 20 6C 6C 69 $8 $9 6C 61 69 74 $ 3 9 O2C7C C.ANV: .ASCII \Initial Fill of 50% assumed\<0> 
00 64 65 6D 75 7 61 20 25 3 5 66 C8A 
00000000 00000000 000000 3 209 3 00 34 C.ANW: .LONG 0,°xX102,0,0,0,0,0,0 
00000000 00000000 00001 ath 4 3 cos C.ANX: .LONG 0,*xX45010004,1,0,0,0,0.0 
00000000 00000000 6 090 o Bo cos C.ANY: .LONG %*xX70000,0,0,0,0,0,0,0 | 
75 20 72 6F 74 $3 1 6 48 ; ad C.ANZ: .ASCII \ Fill Factor used is 100% when Initial L\- 
68 77 2 5 30 30 31 006 \oad is zero. \<0><0><0> 
60 90. 06 o 3 er 3 O 8 be 
° $ 086 C.AOA: ~ LONG *x6000,0,0,0,0,0,0,0 
00000000 00000000 a a4 C.AOB: .LONG %*X71000,0,0,0,0,0,0,0 | 
00000000 00000000 3 oh 079 C.AOC: .LONG %*X67,0,0,0,0,0,0,0 
00 SC 18 38 29 4 p 1 es C.AOD: .ASCII <sro erste) seer aeeeo eee | 
9 9 be C.AOE: .ASCII <9><9><><0> 
00 53 53 45 43 43 41 20 6C 61 $5 - C.AOF: .ASCII \ Legal ACCESS\<0><0><0> 
2F 73 65 79 O09 O9 4F 49 SF 4B 43 GF 4C 4 


A 
DBO C.AOG: .ASCII \BLOCK_I0\<9><9>\yes/no\ 


) 

4 i 
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6— 2F 73 65 79 09 09 09 45 54 45 4C 


UR DAR ERE E 


dB 
Deb C.AOH: .ASCII \DELETE\<9><9><9>\yes/no\<0> 


DDO C.AOI: .ASCII \GET\<9><9><9>\yes/no\ 
C.AOJ: .ASCII SEV T NSD sie cee wrens ne) 
C.AOK: .ASCII \RECORD_10\<9><9>\yes/no\<0><0><0> 


| 

73 65 «#79 F 
C.AOL: .ASCII \TRUNCATE\<9><9>\yes/no\ 
| 

} 

| 


0 of 
2 73 65 79 09 09 45 54 41 435 4E 


6— 2F 73 65 79 09 09 09 45 54 41 44 C.AOM: .ASCII \UPDATE\<9><9><9>\yes/no\<0> 


C.AON: .ASCII] <9><9><0><0> 


NO 
No 
“NO 
Wo 


53 45 43 43 41 20 74 6€ 65 72 


REREAD Z 


C.A00: .ASCII \ Current ACCESS\<0> 
C.AOP: .ASCII hoes ACCESS Attribute\<9><9>\ (Keyword) \- 
<0><0><0> 


\C-J\<0> 


F 6 
SH 
3 39 A 
4 
gf : D é 
e be OA 
gS a 
Ae a 
0 E 
4 oO i: 
aS eee 
80 59 A 09 E38 C.AOR: .ASCII <9>\: \<0> 
¢ 0 09 O9 E ‘ C.AOS: .ASCII <9><9><0><0> 
0 41 45 52 41 20 6C 61 67 65 4C€ 20 £60 C.AOT: .ASCII \ Legal AREA \ 
75 6€ 09 O09 4E 4F 49 54 oh a of é§ é3 a. 8 an C.AOU: .ASCII \ALLOCATION\<9><9>\number\<0><0> 
49 54 4E GF 43 SF 59 $8 4 oF 54 53 4 2s 0 414 C.AOV: .ASCII \BEST_TRY_CONTIGUOUS\<9>\yes/no\<0><0> 
6F 6 r wo Ff 9 53 55 4F 55 4 O2E8E 
6E 09 4 A 49 53 SF $e $3 4 $3 23 ‘ p 4} C.AOW: .ASCII \BUCKET_SIZE\<9><9>\number\<0> 
65 79 09 09 53 55 4F 55 $0 i3 53 rt or 4 9 444 C.AOX: ..ASCII \CONTIGUOUS\<9><9>\yes/no\<0><0> 
4E 4F 49 54 +4 23 sf 30 F 5 $3 2} s3 rt 8 43} C.AOY: .ASCII \EXACT_POSITIONING\<9>\yes/no\ 
6D 75 6€ 09 O09 4E 4F 49 53 r+] ti $3 55 45 444 C.A0Z: .ASCII \EXTENSION\<9><9>\number\<0><0><0> 
75 71 20 20 20 20 4E 4F 49 9? rt g oF $6 EFO C.APA: .ASCII \POSITION qualifier\<9>\number\ 
72 65 62 6D 75 6€ O9 72 65 69 9 69 6C 61 EFE 
65 62 6D 75 6€ 09 O09 45 4D 4C rt § roc C.APB: .ASCII \VOLUME\<9><9><9>\number\<0> 
9 FIC C.APC: .ASCII <9><9><0><0> 
20 41 45 52 41 20 74 6E 65 72 - 9% 29 6 : 0 C.APD: .ASCII \ Current AREA \<0><0> 
20 41 33 41 20 7 $5 74 of 4 f 5 C.APE: .ASCII \Enter AREA \<0> 
48 28 09 09 65 74 $s 69 7 4 74 41 2 FSC C.APF: .ASCII \ Attribute\<9><9>\ (Keyword) \<0><0><0> 
- ” aoe h $b 4 Fen C.APG ASCII \€-J\<0> 
3 R 8 38 C:APH: <ASCII » wg \<0> 
9 09 F f C.API: .ASCII <9><9><0><0> 
54 43 45 4E 4E 4F 43 20 6C 61 67 65 4C 20 ro C.APJ: .ASCII \ Legal CONNECT\<0><0> 
09 09 3 55 4F GE 4F 35 48 43 4E 3 3 ty FSF C.APK: .ASCII \ASYNCHRONOUS\<9><9>\yes/no\<9>\NOLOCK\- 
09 48 43 GF 4C 4F rt e er $f ef 3 63 M8 44: <9><9><9>\yes/no\ 
2F 73 65 79 34 09 4F os F 48 $3 4F 4C 93 ret C.APL: .ASCII \BLOCK_IO\<9><9>\ye Saget \NONE RESTON > 
PER RSRHRHS SEE T oie fie case 
FB 
09 09 45 46 GF 43 2 4 45 & $3 : rep C.APM: .ASCII NRUCEE T _ CORENCPD <P> \numbOr \<PO READ ANE ABN 
45 48 41 SF 44 41 45 52 09 72 65 62 6D 7 FCE <9><9>\yes/no\<0><0> 


F 4 
EDFASK 16*Sep-1984 00:56: VAX-11 Pascal V2.4-277 Page 161. 
Oe 000 Generated Code g-320- 1382 99:38:93 TT EKSUNSRASTER FEGF<GRCJEDFASK.PAS:1 7%) 
F F 73 79 09 09 44 % FD 
6¢ $8 99 5 f) 69 54 53 4 9? 9 $f i} FES C.APN: .ASCII \CONTEXT\<9><9><9>\number\<9>\READ_REGARD\- 
4 rh ef 3 25 $6 $9 $ 5 g re ? FF \LESS\<9><9>\yes/no\ 
79 4 49 4 F 46 4F F 464 GE & 10 C.APO: .ASCII \END_OF_FILE\<9><9>\yes/no\<9>\TIMEOUT_EN\- 
SF 9? oF 45 4 48 5 09 6F 6 F 4 i 1 VABLENCOD>COS\ / \28><0> - 
a ge BF 33 68 9 09 09 oe fe 5 GF 4 : ‘ tetere: 
79 45 54 45 & 45 46 SF 54 3 4 C C.APP: .ASCII \FAST_DELETE\<9><9>\ /no\<9>\TIMEOUT_PE\- 
SE 82 te 2s a8 tS 82 o$ a 6c z : é3 A \RTOD TDS eos \numbor\e8c0S = 
2 65 62 60 75 6E 09 09 464 GF & 2 4 8 58 
09 O9 5 54 45 48 43 55 42 SF 4C $$ 98 ug Oss C.APQ: .ASCII \FILL BUCKET NOON 
54 41 43 4E 55 52 54 9? gf a Be: HH 7 6 \ON_POT\<9><9>\yes/no 
2F 73 65 79 O09 09 54 55 50 SF GE 4F 24 rE: b83 
51 465 SF 5 45 54 41 $3 3 47 SF 59 45 & bog C.APR: .ASCII \KEY_GREATER_EQUAL\<9>\yes/no\<9>\TT_CANC\- 
SF 54 «(54 6F 6€ 2F 73 65 79 09 4C 41 5 OAe \EL_CONTROL_0\<9>\yes/no\<0> 
4C GF 52 54 $5 4F 43 SF $$ 45 43 +3 41 4&4 6 
F 6€ 2F 73 65 79 g 4F SF ‘ 
48 54 SF S52 45 54 41 45 3 47 rh 9 45 48 OC8 C.APS: .ASCII \KEY oS enh ae a 0+ “gmat damental 
50 SF 54 54 99 6F of or $3 9 09 4E 41 006 \T\<9><9>\ yes/no\<0><0><0> 
00 6F 6E 2F 3.6 «65 9 09 54 50 4D rf 35 pes 
73 65 #79 O9 93 54 49 4D 49 4C SF 59 09 4B OF4 C.APT: .ASCII \KEY_LIMIT\<9><9>\yes/no\<9>\TT_PURGE_TYP\- 
54 SF 45 47 52 55 50 SF 54 54 2? 6F oF gf 198 \E_AREAD\<9>\yes/no\ 
2F 73 65 79 O09 44 41 45 48 41 F 45 zy 2 1" 
4E 45 52 45 46 45 2¢ SF 46 4F SF 59 45 4&4 1 6 C.APU: .ASCII \KEY_OF REFERENCE\<9>\number\<9>\TT_READ_\- 
3 of 54 54 09 72 6 $¢ 6D 75 6€ 09 45 4 12E \NOETHOY<9><9>\ yes/no\<0><0> 
6 09 O09 4F 4&4 43 4 $0 $5 Fu re 3} 3 F 93 
79 09 O09 45 46 4F 4D HA 4 9? 41 4 4F rt 0 139 C.APV: .ASCII \LOCATE_MODE\<9><9>\yes/no\<9>\TT_READ_NO\- 
Sr 44 G1 45 52 SE 54 54 08 GF GE OF 73 6 156 \FILTERT<9>\yes/no\<o> 
6— 2F 73 65 09 52 45 54 4€C 49 46 $0 rt: 19C 
09 09 44 41 «45 3¢ SF +3 4F SF 48 $3 4F 36 17C C.APW: .ASCII \LOCK_ON GEAR NEI <eD NEOOPRANETONTT WPCASE W* 
41 $3 20 36 SF 54 «54 g 6F 6€ 2F 73 65 7 138 \_INPOT\29><9>\yes/no 
2F 73 6 9 09 09 54 55 50 4E 49 SF rH 22 \ 
09 45 54 49 52 7 SF GE 4F F 4 $3 GF $5 148 C.APX: .ASCII \LOCK_ON_WRITE\<9><9>\yes/no\<9>\UPDATE_I\- 
45 54 41 44 50 55 44 6F of F 73 65 79 g 1B6 \F\<95<95\yes/no\<0> 
09 6F 6E€ 2F : 5 9 H 46 49 SF 1€4 
? 48 435 4F 4C 4E 5 F 4C 41 r+} 4} 4D 100 C.APY: .ASCII \MANUAL_UN ~o Li pth = + ~All dma 
49 41 57 98 6F of F 7 9 9 09 47 4E 1DE \_RECORB\<9><9>\ yes/no\<0> | 
09 09 44 52 4F 435 45 3 Fu 52 4 7 2 ier 
55 4F 4 F 468 43 4F rt} 4 49 gf ¢ 40 80 C.APZ: .ASCII \MULTIBLOCK_COUNT\<9>\number\<9>\WRITE_BE\- 
a 49 5 7 pa is 65 62 6D 75 6 05 4 3 E \HIND\<9><95\yes/no\ 
fF 73 6 44 4— 49 48 45 & : rE: i 
4F 643 SF S52 45 46 ¢8 55 42 49 54 4€ gf § ec C.AQA: .ASCII] \MULTIBUFFER_COUNT\<9>\number\ 
72 65 62 6D 75 6E 09 54 4 A 
9 ! ? 44 C.AQB: .ASCII <9><9><0><0> 
45 4E GE 4F 43 20 74 6E€ 65 72 ee 38 C.AQC: .ASCII \ Current CONNECT\ 
20 54 43 45 GE GE GF 43 20 72 65 74 GE 4 2 


} 
| 
C.AQD: .ASCII \Enter CONNECT Attribute\<9><9>\ (Keyword) \- | 
| 


cos 


mow 


S 
oo 


~- Ne ~~ MEN LSSNM Ouee 
Sen reo SSUNSS ViyFQW NwOVWT —O7FW0 


S55 FES SA MSA AW FS 
mao Urn SS AaTSS 


ww 
wa 
= 
oO 


] 

‘ | 
305-138 99:38:95 DT aKSVMSMASTERS weermngem oe Pane! 
| 


Generated Code 


75 9 74 <0><0> 
63 $8 82 38 FF 
C.AQE: .ASCII pS so 
C.AQF: .ASCII <9>\: \<0> 
C.AQG: .ASCII] <9><9><0><0> 
C.AQH: .ASCII \ Legal DATE\<0> 
C.AQI1: .ASCII \BACKUP\<9><9><9>\string\<0> 


i $5 $3 ff 
4F 49 54 
54 


8 
ee a 


C.AQK: .ASCII \EXPIRATION\<9><9>\string\<0><0> 
eASCII = \REVISION\<9><9>\string\ 


C.AQM: .ASCII <9><9><0><0> 
C.AQN: .ASCII \ Current DATE\<0><0><0> 


wt 
won 
wm 
So 
AASDFLOA SOONG SS FOI 


Ovo or 
WRNIM OT US UMNO ONOOOPFPYO FEMSASUSwuVvS uA SSO we 


WN “DO MMOVIONOWD > YF OWOOO~~C 


SNM LBLOOM GPO POWOONMLMENVNLSDBLOOFSS worn 
o 
2 
> 
(=) 
ane 


i 
‘ C.AQJ: .ASCII \CREATION\<9><9>\string\ 
re} 20 ue $3 74 C.AQO: .ASCII \Enter DATE Attribute\<9><9>\ (Keyword) \<0> 
7 
80 58 C.AQP: .ASCII pS i 9 
8 G C.AQQ: .ASCII <9>\: \<0> 
2 3 C.AQR: .ASCII <9><9><0><0> 
2 6C 61 67 65 4 0 C.AQS: .ASCII \ Legal FILE\<0> 
4 461 43 4F rt 4 41 C.AQT eASCII = \ALLOCATION\<9><9>\number \<9>\MT_PROTECTI\- 
23 3 % ig $2 6 9° \ON\<9><9>\char/num\<0><0> 
00 0 
; 54 SF 3 53 4 ¢g 5 C.AQU: .ASCII \BEST_TRY_CONTIGUOUS\<9>\yes/no\<9>\NAME\- 
03 33 33 ot ? ef E <9><95<9>Cstring\ 
SF 4 45 oe 23 5 $8 5 C.AQV: .ASCII \BUCKET_SIZE\<9><9>\number\<9>\NOBACKUP\- 
re 2 ye 6 $¢ 3 , 3 <9><9>\yes/no\ 
53 5 54 53 55 4 93 9C C.AQW: .ASCII \CLUSTER_SIZE\<9><9>\number\<9>\NON_FILE_\- 
23 ue $3 9¢ ; 7 of Ay \STRUCTURED\<9>\yes/no\<0> 
6F E F 6 C6 
54 53 45 of 3 4F ‘3 CC C.AQX: .ASCII \CONTEXT\<9><9><9>\number\<9>\ORGANIZATIO\- 
$1 4 28 GF % , ° oA \N\<9><9>\keyword\<0><0> 
55 47 49 $8 SE 4F a3 F4 C.AQY: .ASCII \CONTIGUOUS\<9><9>\yes/no\<9>\OUTPUT_FILE\- 
23 4F 09 ef ge ef 7 106 \_PARSE\<9>\yes/no\<0> 
52 41 0 SF 5 rt: a} 
SF $3 54 41 45 99 43 4 5 C.AQZ: .ASCII \CREATE_IF\<9><9>\yes/no\<9>\OWNER\<9>- 
se 57 GF 09 oF i 2 dee <9><9>\Gic\<0><0><0> 
54 4c $5 41 46 45 46 246 C.ARA: ASCII \DEFAULT NAME \<9><9>\string\<9>\PRINT _ON,\~ 
22 of ee ¢? f ge G tee \CLOSE\<9><9>\yes/no\<0> | 
fF 46A 
45 52 38 $3 4 90 of ase C.ARB: .ASCII \DEFERRED MRETE Cor ezo Len LRONePOWPRBTES T= 
f F 6 7 9 9 47A \ION\<9><9>\ yes/no\<0><0><0> 
4E F 4 4 a3 
SF 45 54 45 4C g 4 498 C.ARC: .ASCII \DELETE_ON_CLOSE\<9><9>\yes/no\<9>\READ_C\- 
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EDFASK 16-Sep-1984 00:56: VAX-11 Pascal V2.4-277 Pp 163 
vite Generated Code $79 00- 1382 99:38:93 TT EKSUNSRASTER FEOF “SR CJEDFASK.PAS:1 <3) “ 
44 61 45 a F 73 65 7 45 46 \HECK\<9><9>\yes/no\<0><0> | 
ar ge of 38 88 9 88 8 fe 8 22 ; sf i , jgctetctrscne | 
52 54 4E 45 SF S59 52 GF 54 49 44 AC C.ARD: .ASCIZ \DIRECTORY_ENTRY\<9><9>\yes/no\<9>\REVISI\= | 
a8 56 as s oF gf 2t ; é3 3 i§ 9 403 NONNCS><O>Cnumber\ Yee NONCo?AREVISI | 
SUR RHE 8 BB FL cme: ssc yregionmcmemecpistommio | 
es/no 
OO GF OF oF #8 68 9 0 08 ac GE , ' 
F 52 65 46 466 SS 42 SF 4C 41 42 GF 4c & 18 C.ARF: .ASCIZ \GLOBAL_ BUFFER COUNT\<9>\number\<9>\SUBMI\- 
i 72 rt: é D $8 6E 5 4 4E 55 4F \T_ON EBs coun /no\<0>< 
SRUERE TEPER Ea ie Yate miami 
4D 55 GE SE 46 ae 48 45 52 SF 41 4 4C C.ARG: ASCII \MAX_RECORD_NUMBER\<9>\number\<9>\SUPERSE\- 
50 22 § 7 : 6 D 75 6€ O09 7 45 43 SA \DE\29><9>\yes/no\<0><0> 
ar ae oF Fe os 98 88 8 Fe SE 2 5345 if nn 
49 $3 52 45 56 SF 45 SA 49 4D 49 5B 41 4D 57 C.ARH: ASCII \MAXIMIZE.VERSION\<9>\yes/no\<9>\ TEMPORAR\= 
50 40 45 54 09 6F ge: 5 79 09 4E 4F 86 \Y\< mize / \<0><09<0> 
0 Gr Ge oF 98 6s 95 86 08 88 Se a3 § or aS sayetiona 
09 45 SA 49 SF GB 43 GF 4C 42 SE 54 4D SAG C.ARI: ASCII \MT_BLOCK_S1ZE\<9><9>\number\<9>\ TRUNCATE\= 
41 43 4e $5 32 a 08 fe as GS Oh OPS OE Op 3B \ ON CLOSE\<9>\yes/no\<0><0> 
65 79 09 45 GF 4c 48 5F OE OF St “3 5 : 506 « secpenmahit cient 
4 49 57 45 38 5F 45 53 4F rt! 43 $f ef 4D ace C.ARJ: .ASCII \MT_CLOSE ee vere eee Negonnenere aan PS 
52 43 35 55 09 GF GE BF 73 65 79 09 09 44 O35¢2 NILE. OPENT<9><9>\yes/no\c0><0> 
65 79 09 09 GE 45 50 GF SF 45 bc 49 46 SE 50 
PE Be DG Fae comes anette cyeen ctipnetiggrnetemunean 
n r 
5 8? 8 686 ff RR 83 F $7 a 4G aE 49 3 - 7 
65 79 09 09 46 GF 45 SE 94 AF UE $7 si é 286 C.ARL: ASCII \MT_NOT_EOF\<9><9>\yes/no\<9>\uRITE_CHECK\- 
SOShESPRERE REE tes bie ets 
09 09 th C.ARM: .ASCII <9><9> 
00 45 4c 49 46 20 7% GE 65 72 72 75 43 : G5¢ CARN: “ASCII \' Current FILE\<O><O><O> 
7% Th &1 20 45 4C 49 466 20 72 65 7% 6E 4 C CARO: .ASCII \Enter FILE Attribute\<9><9>\ (Keyword) \<0> 
or ot 99 6s 6B 38 09 08 oe Me 98 3 é i eA — Aisa ssene 
p56 eae CARP: ASCII \f-2\<0> 
PR SER EME AE Spy, tte 
4C 41 4E 52 55 4F 4A 20 6C 61 6 4C } C:ARS: :ASCII \ Legal JOURNAL\<0><0> 
79 09 09 45 47 41 4D 49 f 5245 i as 41 C.ART: ASCII \AFTER_IMAGE\<9><9>\yes/no\<0> 
7% 73 09 09 45 4d 41 4E SF s c 5 48 41 BC C.ARU: ASCII. \AFTER_NAME\<9><9>\string\<O><0> 
79 09 09 4 49 41 52 54 SF 54 $9 a ; if 0 C.ARV: .ASCII \AUDIT_TRAIL\<9><9>\yes/no\<0> | 
7% 73 09 09 465 4D 41 GE SF i 5 fe ei ee C.ARW: .ASCII \AUDIT_NAME\<9><9>\string\<0><0> | 
09 09 45 47 41 4p 49 Se th So fe Sh 88 8 SFB CAARX: ASCII \BEFORE_IMAGE\<9><9>\yes/no\ 
| 


4 
EDFASK ip-ge -1984 756: VAX-11 Pascal V2.4-277 Pp 164 
Oe -000 Generated Code ~3007 138% 90:36:93 TP EKSUNGAAS TER FEDF-SRCJEDFASK.PAS: 1 <8) 
of g > @& TF 6 
73 09 09 45 4D 41 #4E SF $3 f 4 3 4 ; C.ARY: .ASCII \BEFORE_NAME\<9><9>\string\<0> 
09 54 49 #4E 5S SF 2 38 3 5 ( 4 § f 0 C.ARZ: .ASCII \RECOVERY_UNIT\<9><9>\keyword\ 
63 9 6 C.ASA: .ASCII <9><9> 
4E 52 55 4F GA 20 74 GE 65 72 72 75 ¢ 9 ig C.ASB: .ASCII \ Current JOURNAL\ 
20 4C 41 & 55 4F 4A 20 7 74 45 748 C.ASC: .ASCII \Enter JOURNAL Attribute\<9><9>\(K d)\- 
a8 28 38 08 88 8 % 73 $3 é3 t 74 t 41 736 au gi aoe 
D 8 ret C.ASD ASCII p 8 dso 
A 770 C.ASE: .ASCII <9>\: \<0> 
9 09 774 C.ASF: .ASCII <9><9><0><0> 
09 59 45 4B g $f 61 67 6 rt" g C.ASG: .ASCII \ Legal gt he a4 
2F 73 6 9? 09 45 47 4E 41 & CASH eASCII = \CHANGES\<9><9><9>\ yes/no\<9>\LEVEL1_INDE\- 
45 464 4E 49 SF 1 4¢C 4 56 45 $s 09 gf of \X_AREA\<9>\number \<0><0><0> 
00 72 65 62 6D 75 6E 09 41 45 52 41 4 35 
60 75 6€ O09 +4 41 45 52 41 SF 41 3 41 44 eASCII \DATA_AREA\<9><9>\number\<9>\NAME\<9>- 
72 7 73 O9 09 45 4D 41 4E +4 § ¢: e g <9><95\string\<0> 
6D 75 33 09 09 4C 4C 49 $8 SF 41 5 ef 44 7 eASCII = \DATA_FILL\<9><9>\number\<9>\NULL_KEY\- 
09 O09 45 48 SF 4C $5 2? rt: 2 ie $3 $¢ : <9><95\yes/no\<0><0> 
52 50 4D 4F $3 5F 53 45 48 gf 1 54 41 44 ASCII \DATA_KEY_COMPRESSION\<9>\yes/no\<9>\NULL\- 
09 6F 6€ ria 7 93 9 09 ef 4F 49 53 53 4 0 \ VALOE\<9><9>\char/num\ 
68 63 09 45 55 4C 41 28 of of st $3 
4F 43 SF 44 52 4F 43 45 g 2 41 s 41 44 o eASCII \DATA_RECORD CORPRESS SEN <PPAyon/nel<eo Ww 
2F 73 65 79 O9 r 3 oF 49 2 3 645 3 50 4D \OSI TION\<9>29>\number \<0> 
6— 09 09 4E 4F 49 54 49 3 36 28 09 6F $f 
65 79 09 09 53 45 54 41 rf ig 4C¢ $¢ $f 44 eASCII \DUP JCATES\<P><¥>\ yen /ne\<B>\PROLOG\= 
09 09 O9 47 4F 4C 4 35 39 44 of 43 4 G <9><9><9>\number \<0><0> 
75 6€ 09 O9 41 45 99 41 Hy $3 $2 44 & ef ASCII a X_AREA\<9><9>\number \<9>\TYPE\<9>—- 
65 6B 09 09 O09 45 3 an ; ” 2 $2 é3 68 <9><9>{keyword\<0><0><0> 
53 53 $3 52 50 4D 4F “3 y rf 45 44 GE 49 eASCII \INDEX CORRE SS LOW\< OP yOS/NO\CPPASEGR_LE\= 
47 45 3 09 6F 33 2F 73 65 09 4E 4F 49 \NGTH\29><9>\number\ 
62 6D 75 6E 09 48 54 47 4E 45 4C 3 F 
75 44 09 98 4C 4€ 49 4 2 $ $3 44 4— 49 eASCII = \INDEX_FILL\<9><9>\number\<9>\SEGn_POSITI\- 
49 3 ° 2 oe $f 4 33 H ¢? é3 90 \ON\<95<9>\number\ 
65 62 6D $3 6— 09 O09 §5 48 54 a5 4E 45 if eASCII \LENGTH\<9><9><9>\number\<0> 
9 99 03 8 ASCII <9><9><0><0> 
59 45 4&4 74 6€ 65 7 4 ASCII \ Current KEY\ 
00 4 09 ; 45 4 23 7 § 74 $f 4 ASCII \Enter KEY\<0><0><0> 
48 28 09 he 3 e3 rH g ; oS 34 ASCII \ Attribute\<9><9>\ (Keyword) \<0><0><0> 
D 8 ASCII be ba 
g ASCII <9>\: \<O> 
9 | SASCII <9><9><0><0> 
00 44 52 4F 43 45 52 20 6C 61 4C ASCII \ Legal RECORD\<0><0><0> 


4 
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94 
9 5 C.ASZ: .ASCII \BLOCK_SPAN\<9><9>\yes/no\<0><0> 
C.ATA: .ASCII \CARRIAGE_CONTROL\<9>\keyword\ 
7C C.ATB: .ASCII \CONTROL_FIELD_SIZE\<9>\number\<0><0><0> 
8 C.ATC: .ASCII \FORMAT\<9><9><9>\keyword\ 
C.ATD: .ASCII \glZE\<9><9><9>\number\<0> 
ATE: .ASC <9><9> 
C.ATF: .ASCII \ Current RECORD\<0> 


4—E 41 50 53 bo p é 4 
F 77 79 $ : § 
4 F 4C 4F 4 
SE RER ES 
60 75 6€ O09 O09 O09 45 SA 
52 20 74 6€ 65 72 72 75 
GF 


PPL LSU SO 


~ 


oS IS 
CM FOP OA OLOM FOOOOSOO OY OMIM 


A7A C.ATS: .ASCII <9><9> 
A7C C.ATT: .ASCII \ Current SHARING\ 


9 
9A 
9A 
0 98 
¢ e 
43 45 72 65 74 9C8 C.ATG: .ASCII \Ent RECORD Attribute\<9><9>\ (Kk \- 
09 6 se 88 fe 69 72 f 90 Mio ESS <5 of ves rect 
0 00 00 4 7 9E 
0 5D SEC C.ATH: .ASCII \€-J\<0> 
$0 9FO C.ATI: .ASCII <9>\: \<0> 
2 0 9F4 C.ATJ: .ASCII <9><9><0><0> 
41 48 53 20 6C 61 67 6 3 ye C.ATK: .ASCII \ Legal SHARING\<0><0> 
79 09 #09 09 45 54 45 4 3 re C.ATL: .ASCII \DELETE\<9><9><9>\yes/no\<0> 
2F 7 5 79 09 09 54 4 A18 C.ATM: .ASCII \GET\<9><9><9>\yes/no\ 
41 & 2 54 53 49 54 4C 5 A24 C.ATN: .ASCII \MULTISTREAM\<9><9>\yes/no\<0> 
00 6F 6& 2F 7 A 
09 O09 54 49 42 49 48 GF 5 A 
F 73 65 79 09 09 09 54 ; A48 C.ATP: .ASCII \PUT\<9><9><9>\yes/no\ 
9 09 09 O09 45 54 41 464 6 423 C.ATQ: .ASCII \UPDATE\<9><9><9>\yes/no\<0> 
52 45 54 4E 49 SF 52 45 A64 C.ATR: .ASCII \USER_INTERLOCK\<9><9>\ /no\ 
oF GE 2F 73 65 79 0 NE - poette 
4 
4 


MINN LNG NUN SONOMA E F S*“MOOMNAPMNAMNA FLA LSOMOOMNNE SN OUINLEUS LLNS O 


DNL COON SNWNFLOOOVOD O- UIMOWOOUNMNOMOWNS NBL OOO OD NEMS OOWNAUW FAWN 


C.ATO: .ASCII \PROHIBIT\<9><9>\yes/no\ 


A8A 
52 41 48 5 20 7 5 74 Age C.ATU: .ASCII \Ent SHARING Attribute\<9><9>\(K d)\- 
35 65 oO 62 6 23 7% AOA po Segepi — 
00 00 29 64 7 F AA8& 
0 5D ABO C.ATV: .ASCII \£-J\<0> 
0 20 AB4 C.ATW: .ASCII <9>\: \<0> 
° 2 ABB C.ATX: .ASCII <9><9><0><0> 
53 59 53 20 6C 61 67 6 nd C.ATY: .ASCII \ Legal SYSTEM\<0><0><0> 
73 09 #O9 09 45 43 49 56 $ ack C.ATZ: .ASCII \DEVICE\<9><9><9>\string\<0> 
68 09 09 09 45 43 52 55 ri} ot C.AUA: .ASCII \SOURCE\<9><9><9>\keyword\ 
68 09 09 09 54 45 47 52 64 nh C.AUB: .ASCII \TARGET\<9><9><9>\keyword\ 
AFC C.AUC: .ASCII <9><9><0><0> 
53 20 74 6E€ 65 72 99 9% <3 : C.AUD: .ASCII \ Current SYSTEM\<0> 
4 53 59 53 72 65 74 6€ B10 C.AUE: .ASCII \Enter SYSTEM Attribute\<9><9>\ (Keyword) \- 
3 38 65 74 $0 3 69 tS 4 BIE ake ss " 
00 00 00 4 7 F B2C 
0 5D 2D B34 C.AUF: .ASCII \£-)\<0> 


K 4 


EDFASK 16-Sep-1984 00:56: VAX-11 Pascal V2.4-277 p 166 EDF 
104-000 Generated Code Breen ae 9:88:88 Peed amGaaS Phe  Fégr-cacJeDrAsK.pas: 1° 220) 106 
A 09 B38 C.AUG: .ASCII <9>\: \<0> 
74 gf 6 ? 75 6C 61 § p 0 j 4 Bie £ AUR: ASCII \the yatue ensered will be put into the D\- 
f fy § § 25 a 3 é Bee \efinition.\<0><0> 
—E 6€ 6F 69 f 9 F B68 
0 79 6 i t " a, ép . 2 Bre C.AUI: .ASCII \(dd-mmm-yyyy hh:mm:ss.cc)\<0><0><0> 
i e3 é ee 3 § o7 F 3 E 34 ; ; C.AUJ: .ASCII \(Any cylinder Cylinder File_ID File_name\ 
65 6D re ; SF g 6 3 28 6 44 4 BA8 
65 6E& 6F 05 35 61 O t3 6 F af § 1g! C.AUK: .ASCII \ Logical None Virtual) \<0><0> 
of $3 4 ; 53 rt $5 29 3 8 74 ee ‘3 Bek C.AUL: .ASCII \Enter POSITION qualifier\<9>\(\<0><0> 
66 20 65 rs of 3 re 29 if 65 74 . e BES C.AUM: .ASCII \Enter value for this Secondary\<9>\(\ 
64 6E 6F 63 6 3 2 6 ; tS y 73 ote 
61 23 ¢° 32 20 $% $5 r $3 $ é $? es ve C.AUN: .ASCII \(Indexed Relative Sequential) \<0><0><0> 
0 0 3 03C€24 
52 20 45 F 53 33 53 5 20 3 41 98 4 38 C.AUO: .ASCII \CIAS RSTS/E RSX-11M RSX-11M-PLUS RT-11 V\- 
CRRGHRR ARERR hee shat 
00 29 4D 56 F C5 
65 76 6F 63 65 72 SF oF 69 5SF $6 49 38 0 £28 C.AUP: .ASCII \(If_in_recovery_unit Necessary_to_write \- 
73 73 65 63 65 +f $9 4 69 of 3 9 B3c86 \Never_RU_journal None) \<0><0> 
ei ge 92 98 GF GA Se 85 $b SF 92 GF Fe 382 
00 00 29 és $F 6F rh 0 3090 
7 % a if $5 of Hy $3 ig { 29 eg 2 3tA6 C.AUQ: .ASCII \(Carriage_return FORTRAN None Print)\ 
9 74 6€ 69 7 20 6 CB4 
4 } $3 ze a 53 ep = a i $3 4 ¢ ee C.AUR: .ASCII \ir ized Stream Stream_CR Stream_LF \<0>- 
00 00 00 rt 4c OSF 9p 3} 0 08 
61 56 20 64 65 6€ 9? 65 64 6 H 0 Q3CEO C.AUS: .ASCII \ Undefined Variable VFC)\ 
$? 43 28 § 0 $3 6C 63 61 69 cee 
9 42 20 6— 69 4 0 § 6— 6 35 $ CF8 C.AUT: .ASCII \(Bin2 Bind Bin8 Decimal Int2 Int4 Int8 S\- 
re 8 30 88 OSS OG OS 8 : ie ef i930 ie partes abe se 
6E 69 D 
+94 2 $5 ie 6 s z6 ; "3 as 24 2 73 be8 C.AUU: .ASCII \Entor value for this Secondary\<9>\(Keyw\- 
or 
9 F 77 79 4 4 
Atti fe et 
0 3A D54 C.AUW: .ASCII <9>\: \<0> 
4€000000 00000000 00000000 soft 0 D 1 C.AUX: .LONG “8 »”%4C000000 
- ' eB ‘BKB 
29 30 30 31 3¢ 3 62 41 D6 C.AUY: ASCII \abs<100)\ 
9 61 67 69 1 2D 8 D74 C.AUZ: .ASCII \0- Giga) \ 
0 2d D7C C.AVA: .ASCII \0-\<05<0> 
D D80 C.AVB: .ASCII \C-J\<0> 
6 6 084 C.AVC: .ASCII : \<0> 
A D88 C.AVD: .ASCII <9>\: \<0> 
4€000000 00000000 00000000 00 $00 D&C C.AVE: .LONG 8.0.8. °x4C000000 
00 DIC -BYTE 0, 


4 
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Oe 800 Generated Code b-Sen-1984 99:38:93 DISKSVMSMASTER: LEDF .SRCJEDFASK.PAS;1 (83) 
DOF -BLKB. 1 
00 00 00 29 72 74 73 2D 65 74 ; $3 14 5a ata}, Mpeiteds Or 
A DBO C.AVH: .ASCII <9>\: \<O> 
75 6€ 5B 29 73 72 61 68 i : D i 4 BME “ASCII (7238 chars)CnullI\<9>\: \ 
6— 5B 29 73 72 61 68 63 20 : $1 D bef C.AVJ: .ASCII \1-126 chars)CnullI\ 
6 A DDA C.AVK: ASCII \: \ 
00 29 6F 4E 2F 72 9 DDC C.AVL: .ASCII \Yes/No) \<0> 
0 D 20 58 DES C.AVM: <ASCII \L-J\<0> 
9 A 2 DES C.AVN: .ASCII <9>\: \<0> 
29 72 74 73 2D 49 DEC C.AVO: <ASCII \ I-str)\ 
SB RR EME CRE Ch, 
00 00 00 29 72 74 73 2 7% gr 2 50 DFC C:AVR: :ASCII \protestr)\<0><0><0> 
0 5D 20 58 E08 C.AVS: . ASCII \C-J\<0> 
9 00 Q A EOC C.AVT: <ASCII \: \<0><0> 
29 64 72 6F 48 E10 C.AVU: .ASCII wrexvere?\ 
00 5D 2D 5B 31 C.AVV: ASCII \E-J\<0> 
00 20 3a 09 O3E1C C.AVW: ASCII <9>\: \<0> 
00000000 00000000 00000000 00000000 00000041 3E¢0 C.AVX: .LONG “°X41,0,0,0,0,0,0,0 
00000000 9 000900 00000000 3 4 
4E 4F 49 54 49 53 of 30 20 t 6 74 gE 43 E40 C.AVY: .ASCII \Enter POSITION value\<9><9>\(\<0> 
29 61 67 69 es 3 D $9 6 Ess C.AVZ: .ASCII \O-16iga)\ 
00 5p 2p 58 03660 C.AWA: ASCII \C-J\<0> 
00 20 3A O09 8 £64 C.AWB: .ASCII <9>\: \<0> 
29 72 74 73 2D 44 49 46 E68 C.AWC: ASCII \FID-str)\ 
00 5D @ 5B O3E70 C.AWD: ASCII \L-J\<0> 
00 @0 A 09 E74 C.AWE: .ASCII <9>\: \<0> 
6E 5B 29 73 72 61 68 63 20 39 30 31 20 l E78 C.AWF: . ASCII \1-109 chars)CnullI\ 
2 A eae C.AWG: .ASCII \: \ 
00 29 6D 75 6E 2F 27 72 61 68 63 f ESC C-AWH: ASCH \echar/num) \<0> 
20 gh 09 E9C C.AWJ: .ASCII Mt \ 
vee 9000 WRITE HELP: =o : 0190 
32 13 000000006, EF CF 0002 CASEL QTAB_OFFSET .#19,#50 2 0194 
000V C “DISPL 17$ 
9 V “DISPL 17$ 
v 1 “DISPL 19$ 
000V 901 <DISPL 11$ 
Ov 1 “DISPL 14$ 
6 O16 SDISPL 102 
v 1 =DISPL $$ 
V 1A -DISPL 7$ 
V 1c “DISPL 4$ 
V 1 *DISPL 3 
V “DISPL 5$ 
*DISPL 2 
Bit 
v 0 § *DISPL ; $ 
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Pa 
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Generated Code 


V04~000 
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ar -aAr- ar -—ar 
Se Seve Se Seve 
oz o303 os esas 
ae we & ee wn Ww 
>uw >u>auw =u euI>uws 
—- wt wiut &- wt wt 
uu. *#a. nef uw 0A. AAKMO 
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oeeeeeeeseeeeeeeeeeeseseee eee eee eee se MHAAAWAAAwAvm@ma (ay. es wow 
a eo 
- ~N 
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MOORE COOL OUMAOOULCOOLOL 
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SOOOOOOOOOOOOOSOOSOOSOSOSOOSOSOSOSOSOSOSOSOSOSSSoSoOo 
CGOOOQOOCOOOOOOOOOOOOSOOSOSSOSOSSSOSSOOSCoOSooO 


000000006 Ff 
000000006 Fe 
FFFFCODS 


00000000G_ EF 


82 


000000006 Fe 
000000006 6 
1] 


00000000G_ EF 


F 
1 
OV 


000000006 ff 
000000006 Fe 


FFFFCOCD 


00000000G_ EF 


F 
& 


00000000G_ EF 


5 


F 
3 
F 
1 


000000006 3 


00000000G_ EF 
00000000G_ EF 


000000006 f 


00000000G_ EF CALLS #3 PASSURITE STRING 


000000006 PUSHAB PASSF 
000000006 EF ody CALLS i SAS SURI TELN2 
000000006" FF 6$ PUSHAB SHIFT : 0221 
000000006 EF PUSHAB PASSFV_OUTPUT 
000000006 EF CALLS #3,PASSWRITE_STRING 
FFFFCOSF EF PUSHAB (C.AAG 
PUSHL #45 
000000006 EF PUSHAB PASSFV_OUTP 


00000000G_ EF 
00000000G_ EF 


CALLS #3 PASSURITE. STRING 
PUSHAB  P. TPUT 
CALLS #1,PASSWRITELN2 


000000006 i 
oi 
o SHIFT : 0225 


Ov 
00000000G_ EF 


4 
000000006 Fr 


Nn 4 
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en ten Generated Code g- -Sep o=19 7 99: 38: 93 ste SKSUNSH STR: Veete? SRCIJEDFASK.PAS;1 Page V 
0000v ! E BRW 41$ 
000000006 Ff it 3$: PUSHAB SHIFT : 0207 
000000006 EF o EF PUSHAB PASSFV_OUT 
000000006 EF 3 FB OO0FS CALLS #3 PASSUMITE. _STRING 
FFFFCOC7 EF 9F OOOF PUSHAB C.AAC 
C pp 1 PUSHL #44 
000000006 ai F 001 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OO10A CALLS #3, PASSuRITE STRING 
000000006 FF OF 4 PUSHAB CRLF_SHIFT 
6 OD 0011 PUSHL 
000000006 Fr 9F 00119 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OO11F CALLS #3 PASSURITE _STRING 
FFFFCOC9 gf 9F 90126 PUSHAB C Aap 
2 OD 001e2C PUSHL #34 
.. 000000006 ai 9F O012E PUSHAB PASS$FV_OUTPUT 
000600006 EF 3 FB 00134 CALLS #3 PASSURITE STRING 
, 000000006 EF 9F 00138 PUSHAB PASSrV T 
000000006 EF 1 £8 O14 CALLS #1 PASSURI TELN2 
: 0000v 31 148 BRW 41§ 
000000006 FF F 0014B 4$: PUSHAB SHIFT : 0213 
4 DD 131 PUSHL #4 
000000006 Fe 9F 001 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 €B 00159 CALLS #3,PASSWRITE_STRING 
FFFFCOB3 EE 9F 00160 PUSHAB C.AAE 
8 oD 00166 PUSHL #40 
000000006 FF 9F 0016 PUSHAB PASSTV 0 
000000006 EF 3 FB 001 E CALLS 3 PASSURITE STRING 
000000006 FF 9F 001 PUSHAB ste 
000000006 EF ootby ce 1 : CALLS " HA bs 
000000006 EF +H 0185 5$: PUSHAB SHIFT : 0217 
DD 00188 PUSHL 
000000006 EF  9F 001 ) PUSHAB PASSFV OUTPUT 
000000006 _ EF FB oi CALLS #3,PASSWRITE_STRING 
FFFFCOA1 EF 9F OO19A PUSHAB C.AAF 
DD 001 PUSHL #40 
000000006 ai 3 PUSHAB PASSFV_OUTP 
OF OOTAF 
FB 001B5 
31 1B8¢ 
b Set oe 
BP Bote? 
FB OO1CD 
9F 00104 
pp 1DA 
F 001 
FB 001 
9F 001 
esate 
5 a 
a uy 
FB 7 


COM WMMMOCVIOEPOECOWWW> YS YS PF OOWWOWOO~O0 


coe 
& 


PASSFV_ OUTPUT 


HAB 
00000000G_ EF CALLS 43, PASSURITE STRING 


1984 00:56: VAX-11 Pascal V2.4-277 Page 170 EDF 
ats 1 90:36:93 DISKSVMSMASTER: LEDF .SRCJEDFASK.PAS;1 (83) V04 
PUSHAB C.AAH 
#49 
PUSHAB PASS$FV_OUTPUT 
CALLS #3,PASSWRITE_STRING 
PUSHAB lial 


PUSHAB PASSFV_ OUTPUT 
CALLS G3 PASSURITE STRING 


mm 
eaow 


EDFASK 1 
4-000 Generated Code 


FFFFCO8S 

000000006 
000000006 
000000006 


FFFFCOSF 
ooh 


000000006 EF 


00000000G_ EF 


TA 
PUSHAB PASSFV_OUTPUT 
CALLS #3,PASSWRITE STRING 
PUSHAB PASSFV_OUTPUT 
CALLS #1 PASSWRITELNZ 


SHIFT : 0231 
PUSHAB PASSFV_OUTPUT 

CALLS #3,PASSWRITE_STRING 

PUSHAB AAJ 


6 
PUSHAB PASSFV_OUTPUT 
CALLS #3,PASSWRITE_STRING 
CRLF _SHIFT 


000000006 
00000000G_ EF 


00000000G_ EF 


F 
F 
6 
F 
3 
i. a 
D 
5 
000000006 ' 
OV 
F 


co 
nr 
vw 
cw 
mn 
= 
& 


000000006 F 
4 ) 
000000006 EF 


000000006 EF 65 FB 
FFFFCO85S Ha oF 
000000006 
000000006 
000000006 6 
FFFFCO93 0 
000000006 
000000006 : 


00000000G_ EF 


PUSHAB PASS$FV_OUTPUT 
#3, PASSWRITE_STRING 
PUSHAB C.AAK 


#25 
PUSHAB PASS$FV_OUTPUT 
CALLS #3,PASSWRITE STRING 
PUSHAB PASSFV_OUTPUT 
CALLS #1 ,PASSURITELNZ 


SHIFT : 0237 


¥ 
PUSHAB PASSFV_OUTPUT 

CALLS #3,PASSWRITE_STRING 
PUSHAB C AAL 


" 
PUSHAB PASS$FV_OUTPUT 

CALLS #3,PASSWRITE STRING 
PUSHAB PASSFV_OUTPUT 

CALLS #1 ,PASSWRITELN2 


SHIFT ; 0241 
a 


PUSHAB PASSFV_OUTPUT 
CALLS #3,PASSWRITE_STRING 
PUSHAB C.AAM 

PUSHL #47 

PUSHAB PASSFV_OUTPUT 

CALLS #3,PASSWRITE STRING 
PUSHAB PASSFV_ OUTPUT 

CALLS #1 PASSWRITELN2 


SHIFT ; 0245 


00000000G_ EF 


00000000G_ EF 
00000000G_ EF 


oOmom—momomom 
omw 


000 


wo 
wn 
vm 
cw 
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& 


000000006 
000000006 
FFFFCO7S 


F 
F 
F 
3 
F 
9 
F 
3 
F 
1 
Ov 
F 
F 
00000000G_ EF ; 
F 


000000006 f 

00000000G_ EF 3 
000000006 EF 

00000000G_ EF 1 
0000v 

Ff 

4 

F 

F 
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000000006 
000000006 
FFFFCO6B ' 
000000006 FE 
000000006 i 


00000000G_ EF 
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00000000G_ EF 


00000000G_ EF 
0000v 
000000006 EF 
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TO n800 Generated Code =ben- 1382 99: 38: 9 DIS ScSUNeH see eet eT CIEDFASK.PAS:1 733) 
04 oD B PUSH 
000000006 Fe BF ’ PUSHAB P PASSE OUTPUT 
000000006 EF FB CALLS #3,PASSWRITE_STRING 
FFFFCO61 Hi OF A PUSHAB (.AAN 
7 po PUSHL # 
000000006 FF F PUSHAB PAS$FV_OUTPUT 
000000006 EF 3 FB CALLS #3,PASSWRITE STRING 
000000006 EF 9F F PUSHAB PASSFV 
000000006 EF 1 8 5 CALLS #1 PASSORI TELN2 
000000006" , F f 12$ BOSHAB ie 0252 
Bs po t5 "  PUSHL #4 , 
000000006 FF F 0037 PUSHAB PASS$FV_OUTPUT 
000000006 EF eenene 3 FB zp CALLS #3 PASSURITE. STRING 
gf DD BR PUSHL @# 
cocoons er 077000006 fh Fe HERE FRETS PAS OEY aan 
000000006 EF 9F 0039 PUSHAB CRLF_S 
56 DD 0039F PUSHL 
000000006 ai 9F OO3A1 PUSHAB PASS$FV_OUTPUT 
000000006 EF aiteanal E fe 0347 CALLS #3 PASSURITE_ STRING 
5) DD 00384 PUSHL #55 
000000006 FF 9F 00386 PUSHAB PASSE V_OUTP 
000000006 EF 3 FB 0038 CALLS 3 PASSURITE STRING 
000000006 ef 9F 00 cs PUSHAB Ht PUT 
000000006 EF ootdy re 0 ¢ CALLS ft gPASSURITELNZ 
000000006 EF $F 0 b3 13$: PUSHAB SHIFT : 0260 
coooooons er MMMRRREEE BE, BDF ELSE TTY ran 
FFFFCO6B «EF «= o9F-s«OO3E8 PUSHAB ¢ AaQ 
5 DD 00 3 PUSHL #56 
000000006 FF OF 0 F PUSHAB PASSFV_O 
000000006 EF 3 FB 003F6 CALLS #3 PASSURITE STRING 
000000006 EF 9F 00 ED PUSHAB PASSF 
000000006 EF “s 1 fe 0405 CALLS ft gPASSURITELNZ 
000000006 FF $F a3 148: PUSHAB § SHIFT : 0265 
000000006 FF oP 41 PUSHAB PASSFY OUTP 
000000006 _ EF eit 3 fe ise CALLS #5 PASSURITE, STRING 
BA po 4 PUSHL #58 
000000006 EF enna 55 PB " Q hits’ #8 PASSURITE. _STRING 
000000006 EF 9F 004 PUSHAB CRLF_SHIFT 
66 pp 43D PUSHL 
ooo00000G er 0000S FE PE Bocas CALS. #8 PASSORITE. STRING 
FFFFCO7B =F ©69F 0044 PUSHAB (,AAS 
Yi pp 4 3 PUSHL #52 
000000006 Ff F 004 PUSHAB PASSEV OUTPUT 
000000006 EF 3 FB O045A CALLS #3,PASSWRITE_ STRING 
000000006 EF 9F 00461 PUSHAB tt OUTPUT 


eS — ~ 4 


5 
EDF ASK igese -1984 00:56: VAX-11 Pascal V2.4-277 P 17, EDF 
Oe 800 Generated Code ~$007 1388 90:36:98 DT EKSUNSRASTER EEDF <SRCIEDFASK.PAS:1 1 4) é vii? 
000000006 EF 1 467 CALLS #1,PASSWRITELN 
oosov it ‘8 BRW 41$ — 
000000006 FF cH 15$: PUSHAB  § SHIFT : 0273 
000000006 Ff F 00479 PUSHAB ot OUTPUT 
000000006 EF me 3 FB art CALLS PASSURITE STRING 
4 D 0048C PUSHL cA 
000000006 FF F O048E PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 00494 CALLS 3 PASSUAITE _STRING 
000000006 FF 9F 00498 PUSHAB CRLF_SHIFT 
000000006 ° p rH PY SHAE Bessy o OUTPUT 
000000006 EF entail O3 Fe 4A9 CALLS #3 PASSURITE, STRING 
sooooooce #2 SP Shee PUM IR ourpy 
000000006 EF 5S FB 0048 CALLS #3 SASSUnITE. STRING 
000000006 EF 9F 004C PUSHAB PASSFV_OUTPU 
000000006 EF 0 FB 004C CALLS #1,PASSWRITELN2 
connote” $85 sus, ban Ste sr9 
coonnnos FSH BE Feary aur | 
000000006 EF BS FB OcEs CALLS #3 SASSURITE _STRING 
FFFFCO8S ef 9F OO4EA PUSHAB C.AAV 
000000006 t 4 Oct PUSHAB PASStY.0 
000000006 EF 5S FB out CALLS 3 -PASSURITE, _STRING 
000000006 FF OF OOGFF PUSHAB CRLF 
000000006 . P $383 PUSHAB P PASSFV_OUTP 
000000006 EF ‘itil 05 FB 0500 CALLS #3 PASSURITE, STRING 
000000006 iS oP a3ih PUSHAB Ol ey OUTPUT 
000000006 EF RS. 05 Fe 2 ; CALLS #8 -PASSWRLTE STRING 
00000000G_ EF 8 F CALLS #1 See ee tN2 
0000v 6 BRW 41$ 
000000006 FF F 17$:  PUSHAB SHIFT : 0288 
000000006 t 4 ij PUSHAB PASS$FV_OUTPUT 
000000006 EF aaa 03 47 CALLS #8 PASSURITE, STRING 
Bh pp 4 PUSHL #58 
000000006 Fr F 6 PUSHAB PASSFV_OUTPUT 
a 000000006 ; oF 5 SUSAR ts} Mlle 
000000006 Og 8? PUSHAB PASSFV 
000000006 EF 6S FB ; CALLS #3 PASSOITE. _STRING 
FFFFCO9B ff i 18 PUSHAB ¢ C Any 
000000006 FF BF p PUSHAB Pasar 
000000006 EF 3 FB CALLS ERGs LTE STRING 
000000006 EF 9F 00580 PUSHAB PAgsr put 
| 


Generated 
00000000G_ EF 


000000006 _ EF 


00000000G_ EF 
000000006 EF 


00000000G_ EF 


00000000G_ EF 
000000006 EF 


00000000G_ EF 


000000006 _ EF 


00000000G_ EF 


00000000G_ EF 
00000000G_ EF 


00000000G_ EF 


00000000G_ EF 


00000000G_ EF 


Code 

o000v 
00000000G_ EF 
000000006 
FFFFCOA1 F 
000000006 ; 
000000006 i 
000000006" 7 
00000000G_ EF 
FFFFCO9F F 
00000000G_ EF 
000000006 04 

0000V 


000000006 : 
000000006 FE 
3 


FFFFCO99 F 
000000006 fF 
000000006 EF 
000000006 4 
FFFFCOAB f 
000000006 4 
000000006 _ EF 
008} 
000000006 EF 
000000006 EF 
FFFFCOA9 F 
000000006 EF 
000000006 _ EF 
000000006 


FFFFCOBS 44 


COOQGCCOCOOCOOCOOOCOOOOOOOOOOOOOoO 


ig-se -1984 VAX-11 Pascal V2.4-277 Page 173 
ety 7 99: 38: 9 PT RSiMGARS TER  FEBFSRCJEDFASK.PAS:1 (82) 
3 CALLS #1,PASSWRITELN2 
A BRW 41$ 
18$:  PUSHAB SHIFT : 0295 
A PUSHL 
A PUSHAB PASSFV_OUTPUT 
A CALLS #3,PASSWRITE_STRING 
B PUSHAB C,AAZ 
B PUSHL #53 
BA PUSHAB PASSFV_OUTPUT 
C9 CALLS #3,PASSWRITE STRING 
¢ PUSHAB Pagsry OUTPUT 
CD CALLS #1,PASSWRITELN2 
D4 RW 41$ 
307 19$: | PUSHAB SHIFT : 0300 
DD PUSHL 
OF PUSHAB PASS$FV_OUTPUT 
E5 CALLS #3,PASSWRITE_STRING 
EC PUSHAB C.ABA 
SF PUSHL #51 
5F4 PUSHAB PASTY OUTPU 
SFA CALLS 5 PASSURITE STRING 
601 PUSHAB PASSE 
607 CALLS Te sOn TELN 
60F BRW ar 
611 208 PUSHAB SHIFT : 0305 
617 PUSHL 
619 PUSHAB PASSFV ouTP 
61F CALLS #3, DASSURITE. _STRING 
626 PUSHAB (.ABB 
62C PUSHL #58 
62€ PUSHAB PASStY OUTPUT 
634 CALLS 5 -PASSURITE _STRING 
6 PUSHAB tRir’s 
64 PUSHL 
64 PUSHAB PASSFV_OUTPUT 
64 CALLS #3,PASSWRITE_STRING 
650 PUSHAB C.ABC 
6 6 PUSHL 
6 PUSHAB PASSFV_OUTPUT 
6 : CALLS #3,PASSWRITE STRING 
66 USHAB P 
66 CALLS #1,PASSWRITELN2 
BRW 41 
675 21%:  PUSHAB SHIFT : 0312 
678 PUSHL 
$70 PUSHAB PASSFY._0 UTPUT 
: CALLS #3 PASSuR ITE_STRING 
BA PUSHAB (C.ABD 
69 PUSHL ie 
69 PUSHAB OUTPUT 
9 CALLS a “PASSURITE STRING 
69F PUSHAB CRLF_S 
BA PUSHL 
bA PUSHAB P S$FV_OUTPUT 
BAD CALLS PASSURITE _STRING 
AB4 PUSHAB C kBE 
SBA PUSHL $80 


a 


5 | 
04-000 Generated Code ae et 9 99:38:93 DLSKSVMSMASTER FEOF -SRCIJEDFASK.PAS; 1° 280)" 


000000006 EF  9F 0068 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB cs CALLS #3,PASSWRITE STRING 
000000006 EF  9F 006C PUSHAB PASSFV OUTPUT 
000000006 EF “ a re cr CALLS # PASSWRITELN2Z 
00v000000006_ EF 8 FI 3 22$: BBC #0 ,WAIT_HELP,24$ ; 0319 
000000006 EF 3 PUSHAB suiFt + 0321 
000000006 er £9 PUSHAB PASS$FV_OUTPUT 
000000006 EF FB F CALLS #3,PASSWRITE_STRING 
FFFFCOAS EF 9 Fé PUSHAB ¢ Abr 
000000006 EF 8? F PUSHAB PASSFV_OUTPUT 
000000006 EF FB CALLS #3,PASSWRITE STRING 
000000006 EF 9F 007 8 PUSHAB PASSFV_OUTPUT 
000000006 EF 1 : 71 CALLS #1,PASSWRITELN2 
0000v 718 BRW 41$ 
000000006 E—F 9F 118 248 PUSHAB SHIFT : 0326 
4 pp 7 PUSHL 
000000006 EF 9F 007 ; PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 007 CALLS #3,PASSWRITE_STRING 
FFFECO9F ee 9 t 0 PUSHAB CABG 
000000006 EF 8? 7 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 007 ; CALLS #3,PASSWRITE_STRING 
000000006 EF oF 143 PUSHAB CRLF SHIFT 
000000006 ai er 74D PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 13 CALLS #3,PASSWRITE_STRING 
FFFrCOBT TF bp o0r60 PUSKAS ABH 
000000006 éF P Tee PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 0076 CALLS #3,PASSWRITE_STRING 
000000006 f 16 PUSHAB CRLF _SHIFT 
000000006 EF BP n3 PUSHAB PASSFV_OUTPUT 
000000006 EF 3  €B 0077D CALLS #3,PASSWRITE_STRING 
renee Se i USHA ¢ ABI 
000000006 Ff of i! PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB CALLS #3,PASSWRITE STRING 
000000006 EF 9F PUSHAB PASSFV_OUTPUT 
000000006 EF 1 re 79F CALLS #1,PASSWRITELN2 
0000v : O7A BRW 41$ 
000000006 FF F OO7A9 26%:  PUSHAB SHIFT : 0337 
4 po DO7AF PUSHL @ 
000000006 €F  9F 00781 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 00787 CALLS #3,PASSWRITE_STRING 
FFFFCOCS gf OF d07BE PUSHAB C.ABJ 
D pb 07¢ PUSHL #45 
000000006 EF  9F 007C6 PUSHAB PASSFY OUTPUT 
000000006 EF FB O007C CALLS #3,PASSWRITE STRING | 
000000006 EF  9F 0070 PUSHAB PASSFV_OU 
00000000G_ EF os € fe 07D CALLS #1 PASSURITELNZ | 
00v000000006_ EF 1 007E3 278: BBC #0 WAIT_HELP.29$ : 0343 
000000006 EF 9F PUSHAB SHIFT ; 
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04 po 7F PUSHL #6 
000000006 Ff F OO7F PUSHAB PASSFV OUTPUT 
000000006 EF 3 re 7F CALLS #3,PASSWRITE_STRING 
FFFFCOB3 EF F BUSHAB c K 
000000006 f F 3 PUSHAB PASSE Y OUTPUT 
000000006 EF FB : CALLS #3,PASSWRITE STRING 
000000006 EF 9F PUSHAB PASSFV_OUTPUT 
000000006 EF a. t if ie CALLS #1 ,PASSURITELN2 
000000006 FF F 29$:  PUSHAB SHIFT : 0350 
4 0D 8 PUSHL @ 
000000006 FF F : PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB CALLS #3,PASSWRITE_STRING 
FFFFCOBS FF Hi A PUSHAB C.ABL 
000000006 ai F ; PUSHAB PASSFV_OUTPUT 
000000006 _ EF 3 FB CALLS #3,PASSWRiTE_STRING 
000000006 FF OF F PUSHAB CRLF_SHIFT 
6 pp 25 PUSHL 
000000006 ai F 2 PUSHAB PASSFV_OUTPUT 
000000006 EF cena 3 fe 2 cA Ls #3 PASSURITE_STRING 
4 DD A PUSHL #57 
000000006 FF OF PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB CALLS #3,PASSWRITE_STRING 
000000006 FF F 19 PUSHAB CRLF_SHIFT 
000000006 ai F 1 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB 7 CALLS #3,PASSWRITE_STRING 
FFFFCOAI ef OF E PUSHAB C.ABN 
6 dD 0089 PUSHL 
000000006 FF F 00896 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 0089 CALLS #3,PASSWRITE_STRING 
000000006 FF oF f PUSHAB CRLF_SHIFT 
000000006 Fr OF BAB PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB O08E CALLS #3,PASSWRITE_STRING 
FFFFCOAF ef 9F 00888 PUSHAB (C.ABO 
7 pb BB PUSHL #55 
000000006 FF F 008 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 008 CALLS #3,PASSWRITE_STRING 
000000006 Fe PUSHAB CRLF _SHIFT 
000000006 ai 8? PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 008 CALLS #3,PASSWRITE_STRING 
FFFFCOBD if 9F 008 PUSHAB (.ABP 
9 pb : PUSHL #57 
000000006 Ff f OOBEA PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 008 Q CALLS #3,PASSWRITE STRING 
000000006 EF 9F 008 PUSHAB PASSFV_OUTPUT 
000000006 EF “* 1 if RFD CALLS i PASSWRITELN2 
000000006 EF 9F 00907 31$:  PUSHAB SHIFT > 0365 
000000006 EF dy 9090F PUSHAB PASSFV_OUTPUT 
000000006 EF 55 FB 00915 CALLS #3, PASSWRITE_STRING 
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FFFFCOBF EF 9F 009 PUSHAB (.ABQ 
9 po PUSHL ‘ 1 
000000006 EF 9F PUSHAB PASSE V_OUTPUT 
000000006 EF 3 FB A CALLS -PASSURITE _STRING 
000000006 FF 9F 009 } PUSHAB tRiF§ 
4 po : PUSHL 
000000006 ai F 9 PUSHAB PASSFV 
000000006 EF 3 FB 0093F CALLS #3 SASSUITE. _STRING 
FFFFCOCI ff 9F 00946 PUSHAB } ABR 
C po 94C PUSHL #60 
000000006 FF F 24F PUSHAB PASSE OUTPUT 
000000006 EF 3 «FB 93 CALLS 3 PASSURITE STRING 
000000006 EF 9F : PUSHAB Passe UTPUT 
000000006 EF 1 8 96 CALLS TSCM ITELNE 
000000006" fF F ace 32$ SOSHAB ig 0371 
4 D 009 PUSHL # ’ 
000000006 FF er 303 PUSHAB PASSFY OUTPUT 
000000006 EF 3 €B 0097 CALLS 4#3,PASSWRITE_STRING 
FFFFCOC3 FF oF 380 PUSHAB ¢ 4 ies 
000000006 FF oF 0988 PUSHAB PASSFV 
000000006 EF 3 FB 009 CALLS #3 PASSURITE STRING 
000000006 EF 9F 0099 PUSHAB PASSE UTPUT 
000000006 EF 1 e CALLS et Ae tt 
0000v 9A BRW afi 
000000006 f . O9A3 33$: PUSHAB  § SHIFT : 0375 
000000006 EF er O9A PUSHAB PASSFV OUT 
000000006 EF oie a fe 988 CALLS #3 PASSURITE, STRING 
pp 9C PUSHL #44 
000000006 EF 9F 009C SH PASStY OUTPUT 
000000006 EF FB 009C CALLS 5 ,PASSURITE STRING 
6 USH. 
000000006 EF  9F O09CF PUSHAB ste 
LL L 
000000006 EF m A ji 905 CAL $ #1 PASSURITE N2 
000000006 EF 9F O09DF 34$: § PUSHAB SHIFT : 0379 
4 B ES PUSHL 
000000006 FF F O09E PUSHAB PASSFV OUTPUT 
000000006 EF 3 FB O09ED CALLS #3,PASSWRITE_STRING 
recom tins UM fe 
000000006 EF 9F 009F PUSHAB PASSFV_OUTPUT 
000000006 EF 53 FB ; CALLS #3,PASSWRITE STRING 
000000006 EF 9F PUSHAB PASSFV_OUTPUT 
000000006 EF 1 FB OOAOF CALLS #1,PASSWRITELN2 
0000v ‘ DOAIG BRW 41g 
000000006 f DOA19 35$: PUSHAB qT : 0385 
ue 
000000006 Ff er 1 PUSHAB PASSFV_OUTPUT 
000000006 EF Seaadiead 3 i 7 CALLS #8 PASSURITE, STRING 
C po DOA PUSHL 
000000006 FF F OOA PUSHAB PASS OUTPUT 
000000006 EF FB OOA ’ CALLS @ PASSURITE STRING 
000000006 EF 9F OOA PUSHAB PAS$FV_OUTPUT 
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000000006 EF 91 : A CALLS #1,PASSWRITELN2 
0000v A BRW 4 
000000006 Ff A 368: PUSHAB SHIFT : 0391 
000000006 FF F OOA PUSHAB PASSFV_OUTPUT 
000000006 EF FB OOA CALLS #3,PASSWRITE_STRING 
FFFFCO83 i 9F OOA PUSHAB C.ABW 
C DD OO PUSHL #60 
000000006 FF F OOA PUSHAB PASSE ouTP’ 
000000006 EF 3 FB OOA7 CALLS Re sunI TE. STRING 
000000006 FF OF arp PUSHAB a $FV_OUT 
000000006 Fe ° ¢ CALLS #1 PASSURITELNZ 
3 000001086 FF p A A CPL TDATAS 64,4 : 0394 
000000006 FF oF ag PUSHAB SHIFT : 0396 
000000006 EF 9F OOASB PUSHAB PASSFV_OUTPUT 
000000006 EF 5S FB OOAA1 CALLS #3,PASSWRITE_STRING 
FFFFCO7F EF 9F OOAAS PUSHAB C.ABX 
C DD AAE PUSHL #44 
000000006 ai F PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB OOAB6 CALLS #3,PASSWRITE STRING 
000000006 cf oF OABD PUSHAB PASSrY 
000000006 EF 1 £8 OAC CALLS #1,PASSWRITELN2 
OOv 11 OOACA 388: BRB aig 
000000006 FF 9F ACE 9$:  PUSHAB SHIFT : 0403 
4 DD OOAD PUSHL #4 
000000006 cf F OOAD4 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 §B OOADA CALLS #3,PASSWRITE_STRING 
FFFFCO72 EF OF OOAE1 PUSHAB C.ABY 
C pp OAE7 PUSHL #44 
000000006 FF F OOAE9 PUSHAB PASSE OUTPUT 
000000006 EF 3 FB OOAEF CALLS #3,PASSWRITE STRING 
000000006 EF 9F OOAF6 PUSHAB oe FV 
000000006 EF 1  §B OOAF CALLS #1,PASSWRITELN2 
Ov 11 980 ia BRB 41$ 
00v000000006_ EF 00 €1 00805 41$: BBC WALT _HELP,44$ : 0411 
00v00000000G_ ‘EF 0 £0 0080 BBS ; O- TUNE .44$ 
00004140 8F ODF 0081 PUSHAF #* g3Y b-- : 0417 
000000006 EF 1 FB 0818 CALLS #1,LIBSWAIT 
04 00B22 44$: RET : 0419 
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000000006 
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F 8 CALLS #3,PASS$WRITE_STRING 
000000006 EF cement i d Sikhs ist 
HAB PASSFV_OUTPUT 
000000006 EF wn 3 9 AD ate #3, PASSWRITE_STRING 
0000v 5 B4 BRW 169$ 
000000006 FF s 87 2$: PUSHAB  § seitr : 0479 
000000006 Fe F F PUSHAB PASSFV OUTPUT 
000000006 EF 3 FB 000C5 CALLS #3,PASSWRITE_STRING 
FFFBF F 9F 000C PUSHAB (C.ACA 
coomnons #1 RE Pitta Bilary ste 
000000006 EF 5 FB OOODA CALLS 4&3 PASSURITE _STRING 
* 000000146 ; 9F O00E1 PUSHAB IDATA 
000000006 EF o} FB i CALLS sh nme 
000000146 EF pp OOF PUSHL IDA Ae20 
F 9F OO0F6 PUSHAB aresry 
000000006 EF apenas: 5S FB bore CALLS #3 SASSUNITE. “INTEGER 
revoram Be Ries fusing 
HAB PASS$FV_OUTPUT 
coooonne er OM0HI006 FFE RPE FASE SOTY comin 
000000006 _ EF o} FB a8 CALLS “i, »NUM_LEN 
000000006 EF bp 01 PUSHL DEF 
F 9F 001 PUSHAB PASSFV_O 
000000006 _ EF vote 3 FB 61 : CALLS #3, PASSURITE. INTEGER 
7 sp ot bk ote mOVIBL sP) 
F 9F 00140 PUSHAB Ht Pi PUT 
000000006 _ EF anunenee: AS FB 00146 CALLS #3 PASSORITE _CHAR 
00000014G EF 9F 0140 PUSHAB IDATA+20 : 0483 
000000006 EF O} FB a8 CALLS un -NUM_LEN 
vooo0oocs er 200000006 fF Fr OGISR PSs 
&H 604¢ i 16A MOVAB ans RO 
03 50 (OD 16e CMPL 
FFFFBF4S ia of 173 eernAB Ce C.ACC ; 0485 
3 pd 0017 PUSHL 
SHAB PASS$FV_OUTPUT 
coonnnos er OOmmNOS HE RHEE ERE FASS DTY soa 
0000v 188 BRW 169$ 
FFFFBF31 . 4$ PUSHAB t ACD : 0489 
F 0019 PUSHAB PASSEV UTPUT 
000000006 EF eae re 19 CALLS AS PASSURITE. STRING 
000000006 7 1A Ag PUSHAB  § SHIFT : 0497 
000000006 Ff F 148 PUSHAB PASSFV OUTPUT 
F 3 FB 0018 CALLS 4#3,PASSWRITE_STRING 
sesceetes 8 FFFFBFO8 EF 9F 001B8 PUSHAB C.ACE 
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F DD 0018 PUSHL #47 
000000006 P 165 PUSHAB PASSFY OUTPUT 
000000006 EF 3 2 1¢ CALLS #3,PASSWRITE_STRING 
0000v 3 Cp BRW 169$ 
000000006 FF f 1p 7$: PUSHAB SHIFT : 0506 
000000006 Fe BF 18 PUSHAB PASStY OUTPUT 
000000006 EF stent 3 fe 16 CALLS é PASSURITE_STRING 
5 pp 168 PUSHL @# 
000000006 Fe F TED PUSHAB PASSFV_OUTPUT 
eee 000000146 ; OF CORA BUSHAB TOATASSON mS TRING 
000000006 EF o} FB 09 CALLS #1,NUM_LEN 
0000146 EF DD 00209 PUSHL IDATA+20 
titties Fr 9F 00 if PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 00215 CALLS #3,PASSWRITE_INTEGER 
rrvoers i Gb guess uae 
000000006 FF 9F 00224 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB O022A CALLS #3,PASSWRITE_STRING 
000000006 EF 9F 00231 PUSHAB D 
000000006 EF i FB 0 |! CALLS #1 .NUM_LEN 
000000006 EF DD 0024 PUSHL DEF 
000000006 Fr oF 0246 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 00 4¢ CALLS #3,PASSWRITE_INTEGER 
01 DD 0025 PUSHL #1 
7E sooo00d0s FE oF po588 SOMaAB Passe purpuT 
000000006 EF BS FB 0025F CALLS #3,PASSWRITE_CHAR 
00000014G EF  9F 00266 PUSHAB IDATA+20 : 0510 
onsen Bb eh ALS yaten 
000000006 EF 9F 00276 PUSHAB D 
000000006 EF 6 FB 00 7 CALLS i Ni LEN 
i cogs 9 Ooms = ROVAB—(RORLRTEN Ro 
woe PRB RL. Bin L051 
3 pd 0029 PUSHL # : 
000000006 EF P § 94 PUSHAB PASSFV_OUTPUT 
000000006 EF nobly ji 94 CALLS #5 ,PASSURITE_STRING 
FFFFBE7C FF F 002A4 9S PUSHAB C.ACI : 0516 
3 pp AA PUSHL @# 
000000006 EF 9F 002A PUSHAB PASSFV_OUTPUT 
000000006 EF “a 3 fe 8 CALLS #5 PASSURITE_STRING 
000000006 cf °F f 118: PUSHAB SHIFT : 0522 
000000006 ai P ¢ PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OOOCA CALLS #3,PASSWRITE_STRING 
FFFFBES3 ai oF Dt PUSHAB C. ACJ 
000000006 EF oP D9 PUSHAB PASSFV_OUTPUT 
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D CALLS Ae »PASSWRITE_STRING 

E PUSHL 

iy RINE 

F CALLS #3 PASSURITE. INTEGER 

‘a he 

p PUSHAB PASSFV_OUTPUT 
CALLS 43, PASSWRITE_STRING 

1 PUSHAB K_KEY_SIZE 

1 CALLS 4#1,RUM_CEN 

i PUSHE KEY_SIZE 
PUSHAB PASSFY OUTPUT 
CALLS #3, PASSURITE. INTEGER 
pusHAB  §, ACL 
PUSHAB PASSFV OUTPUT 
cae #2 CASSURITE_ STRING 

12$: PUSHAB SHIFT 3; 0529 

PUSHL & 


PUSHAB PASSFV_OUTP 
sithee #3, PASSURITE. STRING 


WMI 


# 
PASSFV_ OUTPUT 
CALLS ate STRING 


IDA 
PUSHAB PASSFY 
CALLS #8 PASSURITE. INTEGER 


a9 
PUSHAB PASSFV_ OUTPUT 
CALLS #3 PASSWAITE. STRING 
CALLS pin 


IDA 
PUSHAB PASSFY TPUT 
CALLS oye PASSURITE _INTEGER 


a5 
PUSHAB PASSFV_OUTPUT 
CALLS aero tt CHAR 
CALLS if + RUA _CEN 


ZE 
PUSHAB PASSE y,outeur 


CALLS PASSUhI INTEGER 
t att 


a 
PUSHAB PASSFV_ OUTPUT 
CALLS mAK Re PASSUR itis STRING 
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91 FB 0040 CALLS #1,NUM_LEN 
0 0D 0041 PUSHL RO° 
EF BD 41 PUSHL MAX_KEY Size 
Fe F 004 p PUSHAB PASSFV_OUTPUT 
3 FB 004 CALLS PASSURITE INTEGER 
Ff 9F 0042A PUSHAB iA 
pp 4 PUSHL 
F 9F 004 PUSHAB PASS$FV_OUTPUT 
; re 4 CALLS #3,PASSWRITE_STRING 
V : 43F BRW 169$ 
FF F dade 13$: | PUSHAB SHIFT : 0539 
4 pp O44 PUSHL #4 
Fe F O044A PUSHAB PASStY OUTPUT 
3 FB 0490 CALLS #3,PASSWRITE_STRING 
FF OF O45 PUSHAB t att 
B OD 430 PUSHL @# 
F 9F 0045F PUSHAB PASS$FV_OUTPUT 
3 «FB 0465 CALLS pepe STRING 
5 DD 0046C PUSHL 4 
EF pp O4GE PUSHL KAREC 
Fr F 04 4 PUSHAB pASSrV SuT 
3 FB OO47A CALLS #3 PASSURITE. _INTEGER 
ai 9F 00481 PUSHAB C.ACR 
7 op 00487 PUSHL # 
Fr 9F 00489 PUSHAB PASSFV_OUTP 
3 FB 0048 CALLS #3 PASSORITE. _STRING 
Ov 31 0496 BRW 169$ 
FF F 00499 14$: | PUSHAB SHIFT : 0548 
4 pp 049F PUSHL #4 . 
Fr F 004A1 PUSHAB PASS$FV_OUTP 
3 FB O04A7 CALLS #3 PASSURITE. _STRING 
EF 9F OO4AE PUSHAB (C.ACS 
1A DD 00484 PUSHL #26 
gf 9F 004B6 PUSHAB PASSFV_OUTPUT 
3 FB 0048 CALLS #3 PASSURITE _STRING 
F OF 004C PUSHAB IDATA+ 
1 FB 004C9 CALLS HeNURCL 
0 DD 0040 PUSHL 
EF DD 004d PUSHL IDAT A+20 
Fr 9F 004D PUSHAB bResey 
3 FB 004D CALLS 43, PASSURITE. INTEGER 
gi DD 4 PUSHL #1 
D BD 4E7 PUSHL #45 
F 9F 004E9 PUSHAB PASSE OUTPUT 
3 FB OO4EF CALLS #3 .PASSURITE_ CHAR 
ony) AFG PUSHL @# 
EF BD 4F PUSHL CUR_MAX_REC 
Fr F OO4FE PUSHAB PASSFV_ OUTPUT 
3 «FB 04 CALLS #3 PASSURITE “INTEGER 
ai OF PUSHAB C.ACT 
7 bb 1 PUSHL 4&7 
Fe F 0051 PUSHAB. PASSFV_OUTP 
3 FB 0051 CALLS #3 SASsunITy. _STRING 
F OOF 0 PUSHAB IDATA+20 : 0552 
1 FB 6 CALLS #1,NUM_LEN 
6 D : CMPL =sROL 
v 18 BGEO 4 
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C.ACU 3: 0554 
a . 


PASSFV_OUTPUT 
#3 ,PASSWRITE_STRING 


169$ 
( ACV ; 0558 
PASSFV_OUTPUT 
#3, PASSWRITE_STRING 
169$ 
SHIFT : 0564 


4 
PASSFV_OUTPUT 

#3, PASSWRITE_STRING 
C.ACW 


wid 
pesery OUTPUT 
#3,PASSWRITE_STRING 


IDA Oy tar 
PASSrY PUT 
S OASSURITE INTEGER 
t 5a 
#28 
PASStY OUTPUT 
#5 PASSURITE. STRING 


SHIFT ; 0570 


# 

PASS$FV_OUTPUT 

63 PASSURITE _STRING 

C.ACY 

#15 

PASStY OUTPUT 
»PASSWRITE_STRING 


IDA 
perv 
ss PASSURITE. INTEGER 
CAcz 


#29 
PASSFV_OUTP 
F PASSURITE. STRING 


1898 

r 3; 0578 

#1,CLEAR 

4 “FULL _PROMPT ,22$ : 0583 
TEMP—FULL_PROMPT, .+3 

SHIFT : 0590 


PASSFY OUTPUT 
aoe STRING 


# 
PASSFV_ OUTPUT 
#3,P ASSURI ITE STRING 


6 
$04 000 Generated Code if-sep-1964 99:58i0s Ped dnGARS PER Cece cecaeprasx.pas:1 380) 


000000006 Ff 9F 006SA PUSHAB ANSI_REVERSE 
4 po PUSHL #4 
000000006 Fe F PUSHAB PASS$FV_OUTPUT 
000000006 EF FB CALLS #3,PASSWRITE_STRING 
FFF FBBAS FE OF F PUSHAB C,ADB 
a pp 3 PUSHL #26 
000000006 FF F 0067 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 00670 CALLS #3, PASSWRITE_STRING 
000000006 Ff OF 4 PUSHAB ANSI_RESET 
4 pp A PUSHL #4 
000000006 Fr F PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 «FB CALLS #3,PASSWRITE_STRING 
000000006 EF 9F PUSHAB CRLF 
2 po OF PUSHL # 
000000006 ai F 006A1 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 006A7 CALLS #3,PASSWRITE_STRING 
000000006 Fe 9F OO6AE PUSHAB CRLF_SHIFT 
6 pp B4 PUSHL 
000000006 FF F 006B6 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB BC CALLS #3,PASSWRITE_STRING 
FFFFBB69 ef 9F 006C PUSHAB C.ADC 
A pp C9 PUSHL #58 
000000006 FF F 006CB PUSHAB PASS$FV_OUTPUT 
000000006 _ EF 3 FB 00601 CALLS #3,PASSWRITE_STRING 
000000006 FF 9F 006D8 PUSHAB CRLF_SHIFT 
6 pp DE PUSHL # 
000000006 EF  9F O06E PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 00666 CALLS #3,PASSWRITE_STRING 
FFFFBB7B EF OF ED PUSHAB C.ADD 
4 DD 006F PUSHL #52 
000000006 i OF 006F5 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB O06F CALLS #3,PASSWRITE_STRING 
000000006 Ff 9F 0070 PUSHAB CRLF_SHIFT 
6 pp 0 PUSHL @# 
000000006 EF 9F OO70A PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 «FB 19 CALLS #3,PASSWRITE_STRING 
FFFFBB8S ef 9F 0071 PUSHAB C.ADE 
000000006 4 P M4 PUSHAB PASSE OUTPUT 
000000006 EF 5S FB 5 CALLS #3,PASSWRITE_STRING 
000000006 FF F g PUSHAB CRLF SHIFT 
000000006 ai F 4 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 OF A CALLS #3,PASSWRITE_STRING 
FFFFBB97 EF 9 1 PUSHAB (C.ADF 
9009 40 F DD 00747 PUSHL #64 
0000006 EF 9F 4p PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB 2 CALLS #3,PASSWRITE_STRING 
000000006 FF oF 5 BUSHAB CRLF_SHIFT 
000000006 EF 9F ; PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 «FB CALLS #3,PASSWRITE_STRING 
FFFFBBA9 EF 9F F PUSHAB (.ADG 
000000006 FF BP y PUSHAB Bee aay OUTPUT 
F 3 FB 00770 CALLS #3, PASSWRITE_STRING 
somenee 000000006 EF 9F 00784 PUSHAB CRLF_SHIFT 


6 | 
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06 DD 0078A PUSHL 
PUSHAB PAS UTPUT 
coors er momnmee HE FE REEFS SOUT conn 
FFFFBBB3 gf 9F 007 PUSHAB C.ADH 
000000006 4 4 i PUSHAB PA i Sr UTPUT 
000000006 EF seemeaaad FB ih CALLS aie “PASSURLTE _STRING 
6 0D 0078 PUSHL 
000000006 EF BF 786 PUSHAB + ae OUTPUT 
000000006 EF salen 03 fe re CALLS #5 PASSURITE, STRING 
soooooces #2 SP ROS URNS HR 
000000006 EF seni 03 Fe 10} CALLS. 3 "ASSURITE, _STRING 
coonooos HF RPSL RS Fosse avrg 
000000006 EF 65 FB OO7E6 CALLS 3 PASSWRITE STRING 
000000006 EF 9F ZED PUSHAB att UTPUT 
000000006 EF OF FB tr CALLS 4} gPASSURITELN2 
000000006 FF oF a3 238: PUSHAB SHIFT : 0618 
00000006 EF 9F mA PUSHAB PASSFV_OUTPUT 
000000006 EF cca 03 Fe BOA CALLS #3 -PASSURITE STRING 
coonnons fe RP SSG RS Piha eury 
Oommnoos FF sesonooos fe SP SS, kta Fach e-s™Im 
6 DD 0082c PUSHL 
000000006 Fr oF : PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 4 CALLS #3,PASSWRITE_STRING 
FFFFBBAS FF OF B PUSHAB C.ADK 
D oD PUSHL # 
coon er OHNE GE FE SS ABN FREY OTT rai 
000000006 FF OF PUSHAB PA 
F 1 §B 6 CALLS #1,PASSWRITELN2 
ne 000000006 FF oF 24$ PUSHAB SHIFT : 0626 
aonneons er ommoons ft Bate SEY rain 
F O9F PUSHAB C.ADL 
dihdenane fF pp re PUSHL ai. 
000000006 EF naunetes 5S 4 a0 cAts. 5 “PASSURITE. _STRING 
F 6O°8F PUSHAB ANSI_REVERSE~ 
000000006 FF Hi f USHA i 
000000006 EF eeupennies 5S rp i tAtS. Bs Asst output STRING 
FFFFBBB4 FF OF i PUSHAB C.ADM " 
D A PUSHL i 
000000006 EF BP OBA PUSHAB PASSFV_OUTPUT 
F AA CALLS #3 PASSURITE _STRING 
sorntanaentcn: 000000006 05 oF 1 PUSHAB ANSI_RESET 


lH 


Generated Code 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


EF 


EF 


EF 


EF 


EF 


EF 


EF 


EF 


EF 


000000006 
FFFFBBSE 5 
000000006 i 
o0ddv 
000000006 Fr 
000000006 Fe 
000000006 FF 
000000006 Fe 
000000006 4 
000000006 fF 
000000006 Ff 
000000006 i 
1 
9 
000000006 O§ 
0000v 
000000006 Ff 
000000006 Fe 
FFFFBACD rf 
000000006 Fe 
000000006 Fe 
000000006 Fe 
FFF FBABF 4 
000000006 3 
00 
00000003 : 
bh 
000000006 ff 
000000006 Fe 
FFFFBA9E 


62 


16= 


= — Ae te ee oO aM HMMMOOCVPOOOOD 


SESSAREEEE 
OOD LMOo 


a 
aw 


WUD EVD MWS OOM C$ DW OWN ALM LMAO wo 


25$: 


268: 


p=1986 99:38:90 Disksumsmasten:tEpr-sk 


Hay OUTPUT 


CASeUnET STRING 


PASSFV_OUTPUT 
#3, ,PASSWRITE_STRING 


goer SHIFT 


PAssty OUTPUT 
PASSURITE. STRING 
ANSTRE 


PASSFV_OUTPUT 

#3, <PASSNRITE STRING 
CON aTEXT 

fas. 

PASSFV_ OUTPUT 


#3 PASSURITE _STRING 
ANSI _R ESET 


PASSFV_OUTPUT 
43, PASSWRITE_STRING 
4 
PASSFV_OUTPUT 
#3, PASSWRITE_CHAR 
169$ 
SHIFT 
PASSFV_OUTP 
as SASSORITE. _STRING 
¢.AD0 
#28 
PASSFV_OUTPU 
#3, PASSURITE, _STRING 
CRLF_SHIFT 
PASSFV_OUTPUT 
a3 SASSORITE _STRING 
CADP 
Hs 

OUTPUT 
#8 PASSURITE STRING 
r) 


#1,CLEAR 
*FULL PROMPT ,29$ 


EDF .SRCJEDFASK.PAS;1 ( 


#0 TEMP FULL_PROMPT, .+3 


SHIFT 
PASSF OUTPUT 

#3 PASSURITE _STRING 
¢ Apa 


Pegg ,'86 


; 0633 


3: 0646 
; 0651 


F 6 
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] 
000000006 fF —9F 090A PUSHAB PASSFV OUTPUT | 
000000006 EF 3 FB : CALLS #3, PASSWRITE_STRING 
000000006 Ff oF ’ BUSHAB ANSI REVERSE | 
000000006 Ff BP F PUSHAB PASSFV_OUTPUT | 
000000006 EF 3 FB F5 CALLS #3,PASSWRITE_STRING 
00000006 FF oF Hf PUSHA EDF HEADER 
000000006 Ff 8? MD PUSHAB PASSFV_OUTPUT | 
000000006 EF 3 FB OOAOA CALLS 4#3,PASSWRITE_STRING 
000000006 Ff at BUSHAB ANSI_RESET 
000000006 Fe P Al PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OOATF CALLS #3,PASSWRITE_STRING 
coooonne fb efit uae Gxt 
000000006 FF OF A E PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OOA CALLS #3,PASSWRITE_STRING 
000000006 FF 3 3B BUSHAB CRLF_SHIFT 
000000006 FF oF Ve PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OOA4 CALLS #3,PASSWRITE_STRING 
FFFFBA24 ef ie PUSHAB ¢ Aor 
000000006 Fr oF A 3 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB CALLS #3,PASSWRITE_STRING 
000000006 FF oF PUSHAB CRLF_SHIFT 
oo0000006 ef or once PUSHAB PASSFV_OUTPUT 
000000006 EF 6S FB CALLS #3,PASSWRITE_STRING 
FFFFBA32 ef ar DOATA BUSHAB ¢ dos 
000000006 FF er 8 ; PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB CALLS #3,PASSWRITE_STRING 
000000006 cf oF BUSHAB CRLF SHIFT 
000000006 FF P ; PUSHAB PASSFV_GUTPUT 
000000006 EF 3 FB OOA9D CALLS #3,PASSWRITE_STRING 
FFFFBAG4 Hi 9F OOAAG PUSHAB C.ADT 
8 pp AAA PUSHL @# 
000000006 FF F PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB CALLS #3,PASSWRITE_STRING 
000000006 EF OF PUSHAB CRLF_SHIFT 
000000006 EF BP rai PUSKAS PASSFV_OUTPUT 
000000006 EF 5S FB OOAC7 CALLS #3,PASSWRITE_STRING 
FFFFBAS2 gf oF ACE PUSHAB ¢ Abu 
000000006 Fr P AD6 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3  §B OOAD CALLS #3,PASSWRITE_STRING 
000000006 FF ep BUSHAB CRLF _SHIFT 
f PUSHAB PASSFV_OUTPUT 
000000006 EF meant tS FB CALLS #3, PASSWRITE_STRING 
FFFFBAS8 ff F AFS PUSHAB ¢Abv 
000000006 EF BF PUSHAB PASSFV_OUTPUT 


ER a4 


04-000 Generated Code are 99: 38: %3 DLSKSVMSMESTER EDF SRCJEDFASK.PAS; 1° 480) 


000000006 EF FB ALLS a5 basen TE_STRING 
000000006 OF sikhss ft “ 
po PUSHL 
000000006 F PUSHAB PASsry 
000000006 EF FB CALLS PASSUMITE. _STRING 
FFFFBASE OF PUSHAB c thou 
000000006 PUSHAB PASSFV_OUTPUT 
000000006 EF CALLS #3, PASSURITE STRING 
006000006 PUSHAB CRLF_S 


#6 
000000006 PUSHAB PASSFY 


00000000G_ EF CALLS #3 PASSURIT T STRING 


PUSHAB C.ADX 
#54 


PUSHAB PASSFV OUTPUT 
CALLS aS PASSURITE, STRING 


FFFFBA6C 


000000006 
00000000G_ EF 


03 
FE 
6 
FF 
3 
Ob 
SF 
- 
sf 
a 
eo 
000000006 FF OF PUSHAB 
6 pp PUSHL 
000000006 FF F PUSHAB PASSFV 
000000006 EF 3 FB CALLS #3 SAMSONITE. _STRING 
FFFFBA7A Ef i PUSHAB wt 
000000006 Fe oF PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB CALLS a3 PASSURITE _STRING 
000000006 cf PUSHAB ¢ RLF_SHIFT 
000000006 EF 9F PUSHAB PASSFV 
000000006 EF 55 FB CALLS #3 SASSORITE. _STRING 
poe ae Bp usnas ¢Aoz 
000000006 EF 9F PUSHAB PASSFV_OUTPUT 
000000006 EF 55 FB CALLS #3, PASSURITE _STRING 
000000006 cf oF PUSHAB cRLF 
000000006 ai oF PUSHAB PASSFV_OUTPUT 
000000006 _ EF 3 FB CALLS #3,PASSWRITE STRING 
000000006 EF 9F PUSHAB P 
000000006 EF O} re CALLS #1 ,PASSURITELNZ 
000000006 FF OF 30$: | PUSHAB SHIFT : 0690 
4 DD PUSHL #4 
000000006 FF or PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB CALLS #3 PASSORITE _STRING 
FFEFFBASA & BUSHAB C. AEA 
0000006 F PUSHAB OUTPUT 
000000006 EF - 5S FB CALLS WS st he: STRING 
000000006 FF OF i PUSHAB PASSFV_OUTPU 
00000006 FF 900000006 FF oF 315: PUSHAB el PASEMRITELN ; 0696 
4 DD é "PUSH wi : 
000000006 FF P PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB : CALLS W PASSWRITE_STRING 
FFFFBAS7 ge oF 3 PUSHAB C. AEB 
000000006 EF ef D PUSH PASSEV_OUTPUT 
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000000006 EF 03 8 33 CALLS #3,PASS$WRITE_STRING 
0000v C3A RW 169$ 
000000006 Ff c 32$: PUSHAB SHIFT : 0706 
000000006 Ff F 00C4 PUSHAB PASSFV_OUTPUT 
000000006 EF FB 00C4 CALLS #3,PASSWRITE_STRING 
FFFFBAS2 FF a i PUSHAB C.AEC 
000000006 FF F OOC5SA PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB O0C 0 CALLS 3 PASSUALTE _STRING 
000000006 Fe 9F 00C PUSHAB CRLF _SHIFT 
6 0D 00C6D PUSHL 
000000006 FF F OOC6F PUSHAB PASSFV_OUTP 
000000006 EF 3 FB 00C75 CALLS #3 SASSUNITE. _STRING 
FFFFBA3C gf 9F 00C7 PUSHAB (.AED 
F pd 00C PUSHL #47 
000000006 EF 9F 00¢ PUSHAB PASSFV_OUTPUT 
000000006 EF 3 re CBA CALLS #3 PASSURITE _STRING 
0000v : ¢91 BRW 169$ 
000000006 FF F 00C94 33$:  PUSHAB SHIFT 3 0715 
4 OD OCgA PUSHL # 
000000006 FF F 00C9 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OOCA CALLS #3 PASSORITE _STRING 
FFFFBA3F FF 9F OOCA PUSHAB C.AEE 
C DD OOCAF PUSHL #1 
000000006 Fr F 00CB1 PUSHAB PASSE OUTPUT 
000000006 EF 3 FB 00CB7 CALLS 3 PASSURLTE TRING 
000000006 EF 9F OOCBE PUSHAB PA ash 
000000006 EF 1 FB 00CC4 CALLS #1 ae ry na 
000000006 EF 9F 00CCB PUSHAB SHIFT : 0716 
4 0D 00CD1 PUSHL #4 
000000006 EF 9F 00CD3 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 00CD9 CALLS #3,PASSWRITE_STRING 
FFFFBAI4 EF  9F OOCEO PUSHAB C.AEF 
C DD cE6 PUSHL 
000000006 EF 9F O0CE PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OOCE CALLS #3,PASSWRITE_STRING 
0000v 31 OOCF BRW 169$ 
000000006 FF F OOCFS 34$ PUSHAB SHIFT : 0725 
4 po CF PUSHL #4 
000000006 FF F PUSHAB PASSFV 
000000006 EF dial 3 fe D06 CALLS #8 PASSURITE, STRING 
5 pb O18 PUSHL 
000000006 EF  9F 00D1 PUSHAB PASSFV_OUTPUT 
000000006 EF : FB 00D1 CALLS #3,PASSWRITE_STRING 
DD 00D PUSHL 4 
900000846 EF pp D PUSHL IDATA+132 
0G EF 9F OOD2A PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 00D 9 CALLS #3,PASSWRITE_INTEGER 
FFFFB9ED EF 9F PUSHAB (.AEH 
D 00030 PUSHL aii, 
G EF emma: bs Pe 5 cALS” @ #3. PA SASSURIT TRING 
oovBdou00'se EF FFFFB9DC EF I ef Bosna CORED i! = : O7¢8 
5 DD BR PUSHL G gle 


04-000 Generated Code if-sep-1 964 99530593 cSumsmASTER  Pégr-SacJEDFASK.PAS:1 280) 
000000006 


oF PUSHAB PASSFV_OUTPUT 
000000006 EF pS FB CALLS i, PASSWRITE_STRING 
999900006 F B PUSHL SEGMENT_NUMBER 
000000006 EF . 4 rp D ches Be SASSURITE. INTEGER 
FFFFB9B6 Ff 9 of 36$: BUSHAB c Aes : 0732 
000000006 Fe gP PUSHAB PASSFY 
000000006 EF 3 FB CALLS 5 PASSWRITE STRING 
000000006 EF 9F PUSHAB Ho Y_POSITIO 
000000006 EF } FB CALLS i, *Aun CEN 
990000006 EF pp PUSHL MAX_KEY POSITION 
00000006 Fr F PUSHAB PASSFV_OUTPU 
000000006 EF 3 FB CALLS #3 PASSURITE INTEGER 
FFFFB983 FF oF PUSHAB ¢ AEK 
000000006 F fF PUSHAB PASSFV_OUTPUT 
00000000G_ EF O5 fe CALLS #3, PASSWRITE STRING 
0000v ‘ DCA BRW 169$ 
000000006 FF F 37$:  PUSHAB SHIFT : 0741 
4 pp O03 PUSHL #4 
000000006 fF PUSHAB anos V_OUTPUT 
000000006 EF elena 3 F CALLS ’ 3 ,PASSURITE. STRING 
iY PUSHL #49 
000000006 FF PUSHAB PASSF 
000000006 EF 3 CALLS #3 PASSORITE. STRING 


000000006 EF PUSHAB P 
900000006 EF 5 f CALLS #1,PASSWRITELN 
00v00000000G_ ‘EF 0 f BBS #0. OPTIMIZING, 9$ 3 0744 
000000006 f PUSHAB suiFt : 0746 
000000006 EF 3 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB CALLS #3 PASSURITE _STRING 
FFFFB9S3 F 9 PUSHAB C. AEM 
000000006 EF 9F PUSHAB PASSFV 
000000006 EF O5 FB CALLS #8 PASSURITE. STRING 
000000006 f 39S: PUSHAB SHIFT : 0750 
SHAB  PASSFV 
000000006 EF enmnetie, 5 FB fats. Oe DANSORITE. _STRING 
FFFFB92F FF oF Sia C “es 
000000006 EF 9F PUSHAB OUTPUT 
00000 F FB CALLS yt tits _STRING 
oe FFFFB922 i ar 40$: BUSHAB ¢ Be : 0752 
gg, 00000008 HF ae? SUT a 
ooveposnoone EF 6 EO Rim, it” 46:0 OPTIMIZING: 153N6 : 0754 
7 G EF ah MOVZ - y 
, dati EF OF PUSHAB PASSFY OUTPUT 


<m 


104-000 Generated Code 1f-sep-1984 99530:93 PN cdumsaaSten ene shcJeprasK.pas:1' 286) 


000000006 EF 03 FB OOE CALLS #3,PASSWRITE_CHAR 
FFFFB907 i F E98 42%: BUSHAB CAEP * : 0758 
000000006 EF P E9p PUSHAB PASSFV_OUTP 
000000006 EF oondy ji EAS CALLS #8 ,PASSWRLTE "STRING 
000000006 EF 5 43$: PUSHAB  § SHIFT 3 0764 
000000006 EF 8? EB PUSHAB PASSFV OUTPUT 
000000006 EF 3 FB OOEB CALLS #3,PASSWRITE_STRING 
FFFFBBEA Fe oF ECs BUSHAB ¢ AEQ 
000000006 EF eP ECA PUSHAB PASStY OUTPUT 
000000006 EF O§ FB EDO CALLS #3,PASSWRITE_STRING 
DD OOED PUSHL 
900000 4G EF BD ED9 PUSHL [DATA‘132 
000006 FF F OOEDF PUSHAB PASSFV 
000000006 EF tanta 3 fe oe CALLS #3 PASSURITE, INTEGER 
5S DD EFS PUSHL #34 
000000006 EF 9F OOEF4 PUSHAB PASSFV_OUTP 
000000006 EF nobdy re rot CALLS #8 PASSURITE. STRING 
000000006 FF H F04 44$:  PUSHAB SHIFT : 0771 
4 DD OOFOA PUSHL #4 
000000006 EF 9F O0FO PUSHAB PASSFY OUTPUT 
000000006 EF 03 FB Ors CALLS #3,PASSWRITE_STRING 
FPPrBEB EE Ob OOFTE PUSH. c Aes 
000000006 ai OF OF 1 PUSHAB PASStY V_OUTPUT 
000000006 EF ; FB OOF 27 CALLS »PASSWRITE_STRING 
00000846 oF DD of 5 PUSHE ae Ae132 
00000006 Fr oF OF 6 PUSHAB aeeery 
000000006 EF 3 «FB OF ¢ CALLS #3 PASSORITE. INTEGER 
FFFFB89S FF OF OOF4 PUSHAB C.AET 
D DD 00F49 PUSHL #29 
000000006 EF 9F O0F4B PUSHAB PASSEV TPUT 
000000006 EF scant: i i oF38 CALLS #3 PASSURITE, STRING aa 
Ov 12 OOF BNEQ ies ‘ 
FFFFB898 Fr oF Feb PUSHAB ¢ AEU : 0779 
000000006 EF er F $ PUSHAB PASSFV_OUTPUT 
000000006 EF O5 re F CALLS #3,PASSWRITE_STRING 
0000v 3 F ; BRW 169$ 
FFFFB888 FF Ff 46$ PUSHAB y AEV : 0783 

000000006 EF P F PUSHAB PASSFV_OUTPUT 
000000006 EF 6 re F CALLS #3,PASSWRITE_STRING 

0000v : F BRW 169$ 

000000006 EF F 48$: PUSHAB SHIFT : 0789 

000000006 FE F OOF PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB i § CALLS #3 PASSORITE _STRING 

FAB 


FFFFB863 fF oF 


>> 


PUSHAB C.AEW 
PUSHL is 


& 
PUSHAB PASSFV 


F 
000000006 CALLS #3 PASSURITE. STRING 


000000006 _ EF 


Kk 6 
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F OOFA PUSHAB PASSFV_OUTPUT 
000000006 EF — os HA fas CALLS 43 PASSWR ITE_STRING 
DD OOFBA PUSHL # 
900000846 EF pp FB PUSHL IDATA+132 
06 Fr F OOFC PUSHAB PASSFY OUTPUT 
000000006 EF saat 3 fe rCe CALLS 8 jPASSURITE_INTEGER 
gE D FDS PUSHL 
000000006 EF 9F OOFD PUSHAB PASSFV_OUTPUT 
000000006 EF ; : FDD CALLS #3,PASSWRITE_STRING 
0000v 3 FEG BRW 169$ 
000000006 FF rE? 49$: PUSHAS SHIFT : 0795 
000000006 F F FEF PUSHAB PASSFV_OUTPUT 
000000006 EF catiaes O3 FB OFFS CALLS #5 PASSURITE. STRING 
A pp 1008 PUSHL # 
000000006 F F 01004 PUSHAB Hag ot! OUTPUT 
00000000G_ EF 05 fo noe CALLS 3, PASSWRITE _STRING 
0000v ; 1011 BRW We68 
000000006 EF 1014 50$: PUSHAB  § SHIFT : 0800 
Deel 2:1 ME ort cee 
FFFFB833 EF 9F 010 PUSHAB C.AEZ 
000000006 ai oF D108 PUSHAB PASSFV_OUTPUT 
F 3 FB 01037 CALLS #3 PASSURITE _STRING 
vaesinteec bs: 000000006 cf oF 103 PUSHAB ANSI. ERSE~ 
4 pp 1044 PUSHL 
comnons ex Commons FARTS he eae OT ran 
FFFFB82D F F 1988 PUSHAB CL AFA 
000000006 F oF 01058 PUSHAB PASSFV_OUTPUT 
0 0G EF 3 FB 01061 CALLS #3 PASSuRITE _STRING 
cpcemarine: 000000006 f Hi 196 PUSHAB ANSI_RESET 
000000006 FF OF Ht PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 01076 CALLS #3 PASSURITE _STRING 
— . FFFFB807 ai f PUSHAB C. AFB 
1 
1 
00v000000006_ EF - 0” i i 51$: BBS OPTIMIZING, 53$ : 0807 
F OF 01 *  PUSHAB si HEFT : + 0809 
eeeeneee Sa 21: a a 
FB O10A CALLS #3 PASSORITE _STRING 
Seneneees FFFFB7D6 EF : : BUSHAB ( AFC 
0006 EF 9F O10BA PUSHAB PASSF 
000000006 EF eanauuies ie FB 01 C0 CALLS #3 PASSURITE STRING 
000000006 EF 9F 010C¢ PUSHAB PASSFV 
000000006 EF OD Fe cD CALLS fg PASSURITELN2 


4 
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S800 Generated Code ~$007138% 90:36:93 WT EKSUNSRASTER FEGF-GRCJEDFASK.PAS:1 (82) ve 
000000006 Ff 9F 01006 53$:  PUSHAB SHIFT 1 0814 
4 pp 100¢ PUSHL #4 
000000006 Ff F 01 DE PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB O10E CALLS #3,PASSWRITE_STRING 
FFFFB7CD 5 9F O10E PUSHAB C.AFD 
7 pp 10F PUSHL # 
000000006 Ff F O10F PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB O10F CALLS #3,PASSWRITE STRING 
000000006 FF 9F 01100 PUSHAB PASSFV_OUTPUT 
000000006 EF 1 FB 01106 CALLS #1,PASSWRITELN2 
000000006 FF 9F 0110D 54$:  PUSHAB SHIFT : 0816 
4 pp 111 PUSHL 
000000006 Ff F 0111 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 §B 0111 CALLS #3,PASSWRITE_STRING 
FFFFB7BE FF 9F 011 PUSHAB C.AFE 
D OD 011 PUSHL # 
000000006 FF 9F O112A PUSHAB PASS$FV_OUTPUT 
000000006 _ EF 3 §B O11 Q CALLS #3,PASSWRITE_STRING 
FFFFB7B9 EF 9F 011 PUSHAB C.AFF 
C 0D 0113D PUSHL #i2 
000000006 EF 9F 0113F PUSHAB PASSFV_OUTPUT 
00000006 EF 3 fu 1145 CALLS #3,PASSWRITE STRING 
00v00000000G_ ‘EF 0 E 114¢ s #0, OPTIMIZING, 56$ : 0818 
000000006 EF F 01154 PUSHAB ANSI_REVERSE + 0820 
4 DD O115A PUSHL 
000000006 cE 9F 0115 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 0116 CALLS #3,PASSWRITE_STRING 
FFFFB793 ai 9F 0116 PUSHAB C.AFG 
3 DD 116 PUSHL @# 
000000006 ai 9F 01171 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 01177 CALLS #3,PASSWRITE_STRING 
000000006 cf OF O117E PUSHAB ANSI_RESET 
4 DD 01184 PUSHL # 
000000006 EF 9F 01186 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 «FB 118¢ CALLS #3,PASSWRITE_STRING 
FFFFB76D ai 9F 0119 PUSHAB (.AFH 
3 od 01199 PUSHL # 
000000006 EF 9F 01198 PUSHAB PASSFV_OUTPUT 
000000006 EF Fe 11A1 CALLS #3,PASSWRITE_STRING 
0000v 31 011A8 BRW 169$ 
1 DD O11AB 56$:  PUSHL #1 : 0826 
7E 58 «BF OSA: O11AD MOVZBL 4#91,-(SP) 
000000006 FF 9F 01181 PUSHAB PAS$FV_OUTPUT 
000000006 EF 3 FB 011B7 CALLS #3,PASSWRITE_CHAR 
000000006 EF 9F 011BE PUSHAB O16 COUNT 
000000006 EF 1 FB 0114 CALLS #1,RUM_LEN 
0 0D 011¢B PUSHL RO 
990000006 EF bb 11¢ PUSHL OLD COUNT 
0G €F 9F 011D PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 110 CALLS #3,PASSWRITE_INTEGER 
7E 50 F ah Mee MOVZBL #93,-(SP) 
000000006 FF F OIE PUSHAB PAS$FV_OUTPUT 
000000006 EF 3 FB O1IE CALLS #3,PASSWRITE_CHAR 
000000006 EF eessesees O} Pr Hit CAs O16 COUNT 1 
Be 0 if 1200 CMPL RO ae 


.4-277 Page 194 
SAScHORE QQ:S0:05  WMed WEARS! fh °Useorase.ens1? 28h 
Generated Code ‘s sep-1904 : 
0Ov 15 01 ; BLEQ OE : 0830 
FFFFBGFF FE OF 01208 <p rag 
aes O8 i 1518 cats #3 PASSURITE, STRING a 
000000006 EF oodty if 131A BR tn :0 
FRFFBGER FE OF Ot 3 PUSHL tas: 
0000006 EF 9F 01 CALS PASSE y ouTPY _STRING 
00s EF O3 FB 01 Bru 1688 : 0844 
een 00000006 FF ar 01935 ots i lle al 
# BD 01638 PASSFV OUTPUT 
connnons BPE HE HENS CASI OOTY rn 
ee erecnats cE OF O1ZGA PUSH. 
o BD Rise PUSHAB PASSFY_OUTPUT 
0006 EF tte EE Pb O18 CALLS. #5 PASSWRITE STRING 
00000 F OF O125F gv ae ek 
opo0n00¢ EF i EO oisec gas SL ceria 638 z 9666 
povoogo000s EF 00 ED a 5% PUSHAB $b 
000000006 FF oF 0187 CALLS, #5, PASSURI TE. STRING 
FB 0128 
000000006 EF 3 £O Biste PUSHAB C.AFL 
FFFFB6AB 44 bp oi af pen ocesry ov de 
000000006 6S FB O1997 CALLS #5 PASSURITE, s — 
000000006 EF iv 1 Olsse eRe Oe woe 
000000006 EF 9F O1ZA0 635: © PUSHAB SH | 
i De bb oF 8 PUSHAB PASSFV_OUTPUT 
000000006 65 FB OTSA CALLS. #3, PASSURITE, STRING 
000000006 EF cE BiSes PusiAB ¢ 
ean 21 ee oa 
commons EF Sige BUM PASAY au . 
000000006 EF 0000v 3} 15e> 658: BOS___«#O- OPTIMIZING, 678 : 086? 
00v000000006 EF 6 00 oF 136A PUSHAB SHI HEFT 
comme | Ma ot eee 
000000006 eF OS EB 15 pusias ¢ AFO 
00000006 FF oF ; hie 6 #8 PASSURITE STRING 
HAB PASSF 
mee “ 000000006 i i 1314 EALLS. fi] ,PASSURITELNZ pl 
000000006 1, SP Rtas af ; 
oo00000s EF’ $F 01803 678:  PUSHAB SHI 
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#4 
PUSHAB Ae yt OUTPUT 
t; 


1 


mm 


PASSURITE STRING 
7 


ri 
PUSHAB PASSFV_OUTPUT 
CALLS #3,PASSWRITE_STRING 
PUSHAB PASSFV_OUTPUT 


#1 ,PASSWRITELN2 
68$:  PUSHAB SHIFT 


a 
PUSHAB PASSFV OUTPUT 
#3,PASSWRITE_ STRING 
PUSHAB bz 


# 
PUSHAB PASSFV_ OUTPUT 
#2 PASSURITE STRING 


69S: PUSHAB ers 


PUSHAB PASSFV_OUTPUT 
#3,PASSWRITE_STRING 
PUSHAB C.AFR 


rT 

PUSHAB PASSFV_OUTPUT 
#3,PASSWRITE STRING 

PASSFV_OUTPUT 

#1 PASSURITELNZ 

#0, OPTIMIZING, 71$ 

SHIFT 


3; 0872 


; 0881 


3: 0884 
3; 0886 


#4 
PUSHAB PASSFV_OUTPUT 
#3,PASSWRITE_STRING 
PUSHAB CAFS 


1 
PUSHAB PASSFV_OUTPUT 
#3 ,PASSURITE STRING 
718: PUSHAB ager : 0890 


PUSHAB PASS$FV_OUTPUT 
#3,PASSWRITE_STRiNG 
PUSHAB C.AFT 


#22 
PUSHAB PASSFV_OUTPUT 

#3,PASSWRITE_STRING 

72$:  PUSHAB CAFU | : 0892 


PUSHAB PASSFV_OUTPUT 
#2 PASSURITE STRING 


73$: PUSHAB Baer ; 0898 


4 
PUSHAB PASSFV_ OUTPUT 
CALLS #3 PASSURITE STRING 


PUSHL #45 


FP PUMMIVDPINIDN) = “QO MMR MMMMOOOOOWWDW SP PF OOOO IIOP Pn FEI 
ROME SL S HMONG NOP CONVO OW BD LMOPM VY BW HMONG VNLSO NUOVO PFP WSOC OMO—-DWo WZ 
vo 
c. 
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000000006 OF 014 } PUSHAB PASSFV_OUTPUT 
000000006 EF otis if 14 CALLS #5 ,PASSURITE, STRING 
000000006 FF F 014 i 74$ PUSHAB SHIFT : 0903 
4 po 14 PUSHL #4 
000000006 Fe F 01469 PUSHAB PASStY OUTPUT 
000000006 EF 3 FB O146F CALLS #3,PASSWRITE_STRING 
FFFFB636 EF 9F 01476 PUSHAB e564 
0 po 147C PUSHL #4 
000000006 EF  9F O147E PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 8 1484 CALLS #3, PASSWRITE_STRING 
0000v 1488 BRW 169$ 
000000006 FF F 0148 75$:  PUSHAB shirt : 0908 
4 DD 01494 PUSHL 
000000006 ai 9F 01496 PUSHAB PASSFV_0 
000000006 EF 3 «FB 149¢ CALLS #3 PASSORITE. _STRING 
FFFFB639 EF 9F O14A PUSHAB C.AFX 
A DD 014a9 PUSHL #4 
000000006 Ff 9F 014AB PUSHAB PASSE OUTPUT 
000000006 EF 3 £B 01481 CALLS #3,PASSWRITE_STRING 
0000v 31 1488 BRW W268 
000000006 FF F 014BB 76$: | PUSHAB SHIFT : 0913 
4 0D 014C1 PUSHL # 
000000006 FF OF 014C3 PUSHAB PASSE OUTPUT 
000000006 EF 3 FB 01409 CALLS #3,PASSWRITE_STRING 
FFFFB638 EF 9F 01400 PUSHAB es 
F DD 1408 PUSHL #47 
000000006 FF 9F 0140 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 1406 CALLS #3,PASSWRITE_STRING 
0000v 31 014E BRW 169$ 
000000006 FF 9F 014E8 77$:  PUSHAB SHIFT : 0918 
4 DD 14EE PUSHL 
000000006 FF OF O14F PUSHAB PASSFV OUTPUT 
000000006 EF 3 FB O14F6 CALLS #3,PASSWRITE_STRING 
FFFFB63B EF OF 16r PUSHAB C.AFZ 
D 0D 0150 PUSHL #45 
000000006 EF 9F 01505 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 0150 CALLS #3,PASSWRITE_STRING 
0000v 31 0151 BRW 169$ 
000000006 FF 9F 01515 78$: | PUSHAB SHIFT : 0923 
4 pd 01518 PUSHL @ 
000000006 cf OF 41 1p PUSHAB PASS$FV_OUTPU 
000000006 EF 3 FBO} CALLS #3 SASSUnITE. _STRING 
FFFFB63E EF 9F 0152A PUSHAB (.AGA 
D pp 1 PUSHL #45 
000000006 ai F 01 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 B01 CALLS a3, PASSURITE E_STRING 
000000006 FF OF 01536 PUSHAB CRLF _SHIFT 
6 pp 1 43 PUSHL @# 
000000006 i F 0154 PUSHAB Shcsey OUTPUT 
000000006 EF 3 FB 0154D CALLS #3 PASSURITE _STRING 
FFFFB644 EF 9F 01554 PUSHAB (.AGB 
E po 155A PUSHL #46 
000000006 EF 9F 01 PUSHAB PASS$FV_OUTPUT 
000000006 EF a HF if CALLS #5, PASSWRITE_STRING 
000000006 EF 9F 0156¢ 798 PUSHAB aie : 0929 
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000000006 ff 4 
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SHORE SSSA UMDAgaatbE 


PASSWRITE_STRING 
33° 


PASSFV_OUTPUT 
#5 ,PASSURITE, STRING 


SHIFT 
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PASSFV_OUTPUT 
#3, PASSWRITE_STRING 
C.AGD 


rT; 
PASSE Y OUTPUT 
# 

C.A 

a 


é 
PASSFV_ OUTPUT 
: -PASSWRITE_STRING 


IDATA4#132 
PASS$FV_OUTPUT 
#3,PASSWRITE_INTEGER 
CAGE 

PASSFV_OUTPUT 
#3,PASSWRITE_STRING 
#0 BOATA+19,828 


PASSFV_OUTPUT 
#3, PASSURITE_ STRING 


SEGMENT_NUMBER 
PASSFV_OUTPUT 
#3,PASSWRITE_INTEGER 
C Ace 


# 
PASSFV_OUTPUT 
o> PASSWAITE STRING 
#1 RUM CEN 
RO 
KEY_SIZE 


MIN 
PASSFV_ OUTPUT 
#3 -PASSWRITE_INTEGER 


#45 
PASSFV_OUTPUT 
#5 PASSURITE_CHAR 


wv 
Pd 
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CG 
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—oeN 


E 
UT 
E 


INTEGER 


#41 
PASSFV_OUTPUT 
#3, PASSWRITE_CHAR 
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EDF. SRCJEDFASK.PAS:1 ( 


ANSI REVERSE 
ae 


P S$FV_OUTPUT 
PASSWRITE_STRING 
c AGH 


PAssty OUTPUT 
apt Ageuaire _STRING 
ANSI R 


PASStY OUTPUT 
3,PASSWRITE_STRING 
c,Aet 


& 
PASSFV_OUTPUT 
#7 cASSURI TE. STRING 


mere 


PAssty OUTPUT 
3,PASSWRITE_STRING 

t 564 

#37 

PASSFV_OUTPUT 

#3 -PASSURITE_ STRING 


$ 
C.AGK 
#20 
PASSFV_OUTPUT 
83 PASSORITE STRING 
PASSFV 
#1, PASSWRITELN2 
86$ 
C.AGL 
#20 
PASSF 
a SASSUNITE. STRING 


alla 


PASSFV OUTPUT 
#3,PASSWRITE_STRING 
C. AGM 


#28 
PASSty OUTPUT 
PASSURITE STRING 


rt tree ty LEFT 
PAS OUTPUT 


ASS 
aie SPASSURITE INTEGER 


Hae ay 


ae PASSURITE. INTEGER 


Pegg 198 


; 0955 
: 0957 


ee 
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7 z V2.4-277 _ Page 
1g-Senm198 19:38:93 DESkSvmSMASTER: PEDF<SRCJEDFASK.PAS; 1" ¢8e> | 
vOu~000 Generated Code , ye mat ene aKpoint RIGHT | 
come mT | aoe 
000000006 EF aa ae Og BUSHAB  CAGN ee | 
000000006 ff BP DIDA CRTs. BS PASSORITE. STRING 
0000006 EF 2 EP gives PUSHAB PASSFV OUTPUT 
e soeveeers FO its CALLS #1 PASSWRITELNZ + 0967 
000000006 EF ne OF EB IZED Pusnas suiFT 
O4 BP oiee PUSHAB PASSFY_ OUTPUT 
wees 1808 CALLS, #3 -PASSURITE, STRING 
000000006 EF te OF Oi PUSHAB Ch 
FOP O1ait SHAB PASSFV_ OUTPUT 
pete: O3 Pe O81? CALLS, #3,PASSURITE. STRING 
appa t: BD 01820 PUSHL DEPruPotNT LEFT 
eee 8:4 a 
000000006 EF 03 4 oot ; 2, GR Safes 
i: PUSHL DEP 1 
cel 1:1 | ee 
ren 3 DD 01848 PUSHL DEPTHPOINT RIGHT 
BE BD Osa PUSHA $FV_OUTPUT 
0000006 fF oF On 2 CALLS. #3 PASSURITE. INTEGER 
000000006 EF e.g 08 FB Ol USHA ¢AGP 
as 00 pp 1863 PUSHAB PASSFY_OUTPUT 
SNS FT ng CALLS. #5, PASSWRITE STRING 
000000006 EF 00000006 c kh 1873 CALLS. #1 PASSWRITELN2 ; 0971 
000000006 EF 9F O187F PUSHAB SH 
Saat a OF 01887 PUSHAB PASSFY_ OUTPUT 
coooo00ns FF mF IRR! CALLS #3 PASSWRITE, STRING 
rete camel Le Ao 
cease 9 Me ee 
00000000G_ EF 6 1BA PUSHL @# FT | 
goonoag FF OGRA PUSH, MwpouMr tert 
800000006 O5 +4 138) ati #3, PASSWRITE_INTEGER | 
000000006 EF r4 Dp 15 BUSH #6 INT ID 
apoob0d0e 3 1% CALLS 48 PASSURITE INTEGER 
noma 2 a ee 
goooo00us Fr ibe} CALLS. : [PASSURITE INTEGER | 
000000006 5 HAB | 
FF FFFB300 BEF O1BEB 4 ae | 
| 
| 


Pa nf 
f 7 DL SKSVMSMASTER: FEDF -SRCIEDFASK.PAS; 1" 288) 
Mr gep=1obe 19:38:50 DrsKSvMsMASTER FED. 
. B-36p-1986 15:85: out | 
Generated Code . oler PUSHAB Ae he tt STRING 
000000006 ff 4 1 Fo CALLS agsFy ate T 
OF O18F CALS. Pt PASSURITELNZ raaiel 
000000006 FF 400000006 BF OF O1BrD CALLS. #1 PA 
000000006 F 9F O190A SHL #4 
amet) BF O191 PUSHAB #3; PASSURITE. STRING 
ooooo000s fF FF OI 1 PUSHAB cakes e 
000000006 fF OF O01 PUSHL #34 
at aoe 
000 O3 FB 01920 HL #6. 
000000006 6 0D : r Ae ry pat ed 
Booooooee EF OF 137 CALLS. #3, PASSURITE_INTEGER 
3 6FB 01 ; HL #6 
000000006 03 DD 1% PUSHt PAG point ie 
Boooouve EF oF 1981 CALLS, #3,PASSURITE. INTEGER 
3 6FB O01 HL | #6 
000000006 fs Do 1986 PUSHL PASSFV_OUTPUT 
$0006 EF BD BI Ne CALLS” #3 PASSURITE. INTEGER 
seem Gtan = Bene Nutt 
000000006 F 4 3 USHL 
commons fF Hee BMS Hey our 
000 1981 HAB PASSFV_OU ; 0979 
000000006 000000006 FF re Rio 4 CALLS. #1 PASSURITELNZ ; 
000000006 EF F 9F 0199 SHL #4 
000000006 FF BD 91998 PUSHAB PASSE OUTPUT 
000000006 FF oF 19k3 PUSHAB a : 
000000006 _ EF F 9F O19A SHL #35 
cael BF 0198 PUSHAB #3: PASSURITE. STRING 
000000006 bs ab Oloe CALLS 83, - 
poeanens BAe, BUR Hawrun et 
Sooo00008 cr F 19¢7 CALLS #9 PASSURITE. INTEGER 
FB 019CD #6 
eomnoone PRS ES Hare 
boosoo0 Ef SF 190 Chitse #3 PASSURITE INTEGER 
3 FB 01 ; PUSHL # arent 
come Te) ae oa ei 
3 «FB PUSHAB C,AGV 
000000006 _ EF F OF O19F SHL # 
cveopcooe of 80 OTA PUSHAB FASSFY ouTPUT 
000000006 FF FOIA Sicha paAssry cured 3 
0000006 EF F OF 1A aie nn PASSuRITELNZ ; 098 
00 000000006 FF OF Dial BUSHAB CRLF SHIF 
ponenn00s FF yooo0000s EF OF DIAZ 


——<—<——_$—$—$ ———_— 4 


| 
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06 1A ‘ PUSHL #6 
000000006 FF 1A PUSHAB p SSFV T 
000000004 EF 1A : CALLS SASSURIT _STRING 
FFFFB2D3 Fe 1A PUSHAB { AGw | 
1038 PUSHL # 
000000006 EF 1A p PUSHAB PASSFV T | 
000000006 EF 3 1AG CALLS "ann _STRING 
1AGA PUSHL @ 
900000846 F 1AG PUSHL IDATA+132 
0G EF 1A PUSHAB PASSFV_OUTPUT 
000000006 EF 3 1A CALLS #3,PASSWRITE_INTEGER 
FFFFB2AD Ff yA F BUSHAB C.AGX 
000000006 FF 1 ; PUSHAB OUTPUT 
000000006 EF 3 1A6D CALLS a <PASSURITE _STRING 
000000006 EF 1A74 PUSHAB 
000000006 EF } 1A7A CALLS "RUM LEN 
0 1A81 PUSHL R 
900000 0G EF 1 ; PUSHL MIN BUCKET 
0000006 FF 1 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 1A8F CALLS #3,PASSWRITE_INTEGER 
FFFFB286 ai 1496 PUSHAB C.AGY 
5 1A9C PUSHL # 
000000006 ai 1A9E PUSHAB PASSFV_OUTPUT 
zp BONERS EN EY esr Tne 
SC FFFFFEF2GEF4O mn 20 90 1A8 EXTV a0, i321 “aTAs-270CR03, R12 
900000006 EF = § 1Aca CALLS suite) LEN 
30 1ACB PUSHL RO 
000000006 f 1Ace PUSHAB PASSFV_OUTPUT 
000000006 EF 5 1AD5 CALLS #3,PASSWRITE_INTEGER 
FFFFB2468 EF 1406 BUSHAB ¢,AGz 
000000006 EF 1AE4 PUSHAB PASSFV_OUTPUT 
000000006 EF 1AEA CALLS 4#3,PASSWRITE_STRING 
0000v 1AF1 BRW 169$ 
000000006 EF Tare 873: PUSHAB SHIFT > 0996 
F 1AF PUSHAB PASSFV_OUTPUT 
000000006 EF anne 6S 1B ; CALLS #3 PASSORITE _STRING 
FFFFB21F FF 189 PUSHAB C,AHA 
000000006 181] PUSHA al eey TPUT 
000000006 EF 5S 1817 CALLS #3,PASSWRITE_STRING 
000000006 Ff 1BiE BUSHAB CRLF _SHIFT 
0000006 EF 1B26 SHAB PASSFY OUTPUT 
000000006 EF 3 1B CALLS ea om 
FFFFB215 f 18 BUSHA 
0000006 1B PUSHAB V_OUTPUT 
a ee eo aay pus 099 
01 FFFFFEFQGEF4O 5H 00 1Be8 CMPV #2'8 ar gers bat (RO3 a1 : 


"SSep=198G PO:SE:83  SiScsiMGAASTERSEebe Sacaeorask.pasi1 8) {0 


mm 
aan 
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0Ov 12 018 BNEQ 89S 
FFFFB218 EF d¢ B PUSHAB (.AHC : 1001 
B PUSHL 
000000006 EF 9F PUSHAB PASSFV_OUTPUT 
000000006 EF Bg CALLS #3,PASSWRITE_STRING 
0000v BRW 169$ 
FFFFB208 EF 9F 89$ PUSHAB C.AHD : 1005 


& 
PUSHAB PASSFV OUTPUT 


CALLS #3,PASSWRITE_STRING 
R 169$ 


000000006 EF F 
000000006 EF 6 
0000v 


W 
000000006 EF 918: PUSHAB SHIFT : 1011 
000000006 EF PUSHAB PASS$FV_OUTPUT 
000000006 EF #3,PASSWRITE_STRING 
PUSHAB C.AHE 


FFFFBIE7 ff 
3 ¢ 
PUSHAB PASSFV 


O— "- DB OW OW DB FM OS™ ON FS SMO OCMO SL LPHLNMOPF VOT 
o 
> 
r 
aod 
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DW DWDWDWWVWWDVOITWVWWOWVIOVIVIOVOIOWOWVWVIOIOWOWODW 
RwWMMMMoOCIPCOOOO> > FS OOOO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
F 01 
D 01 
F 01 
B 01 
of 
000000006 EF 9F 01 OUTPUT 
000000006 EF ; : CALLS #3,PASSWRITE_STRING 
90000 84G EF 0D 01 PUSHL IDATA+132 
00000006 a F 01 PUSHAB PASSFV_OUTPUT 
WRITE_IN 
000000006 EF ea tf 8 CALLS #3 PASS RITE_INTEGER 
3 pp 01 PUSHL #35 
000000006 EF 9F 01 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 7 1 CALLS #3,PASSWRITE_STRING 
0000v 1 BRW 169$ 
000000006 cf 92$ PUSHAB SHIFT : 1016 
Uv 
000000006 EF 9F 0i PUSHAB PASSFV_OUTPUT 
000000006 EF 55 FB O01 CALLS #3,PASSWRITE_STRING 
FFFFBIB8 €F 9F 01 PUSHAB (C.AHG 
000000006 4 p 1865 BUSHAB PASSE OUTPUT 
000000006 EF 3 re 1¢ CALLS #3,PASSWRITE_STRING 
Vv 
0000 1¢ BRW 169$ 
000000006 f F cI 93$ PUSHAB SHIFT : 1021 
000000006 FF F 1f18 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB Cte CALLS #3,PASSWRITE_STRING 
FFFFB1BB  «OCEF OOF «(OIC PUSHAB (.AHH 
000000006 4 if 5 PUSHA Lt OUTPUT 
000000006 EF 5S FB OIC R CALLS #3,PASSWRITE_STRING 
000000006 EF i CSA PUSHA CRLF _SHIFT 
000000006 EF 9F ieee PUSHAB PASSFV_OUTPUT 
000000006 EF FB 01C4 CALLS #3,PASSWRITE_STRING 
FFFFBIB9 f F CoE PUSHAB ¢ AMI 
000000006 er 1689 PUSHAB PASSFV_OUTPUT 
000000006 EF re 1¢5D CALLS #3 PASSWRITE_STRING 
0000v : 1¢ BRW 169$ 
000000006 f iC q 94$: PUSHA SHIFT : 1027 
000000006 EF P 1C6F PUSHAB PAS$FV_OUTPUT 
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000000006 EF 03 CALLS #3,PASSWRITE_STRING 
FFFFB190 f BUSHAB ¢ ANd 
000000006 EF PUSHAB PASSE Y OUTPUT 
000000006 EF 3 CALLS #3,PASSWRITE_STRING 
000000006 FF PUSHAB CRLF_SHIF 
000000006 ° PUSHAB PA 
000000006 EF ieee CALLS #5 PASSURITE_STRING 
2 PUSHL #2 
000000006 PUSHAB PASSFY OUTPUT 
000000006 EF oondy CALLS #5 ,PASSURITE_ STRING 
000000006 EF 95$:  PUSHAB SHIFT : 1032 
4 PUSHL 


as 
PUSHAB PASSFV_ OUTPUT 
CALLS #3,PASSWRITE_STRING 


000000006 FF 
PUSHAB ¢ AHL 


00000000G_ EF 
FFFFB169 4 


WINDS ONODONDOD ONOIDOWNODTOTNOVTO"OUON 
MMR WDNR NOVO NOVO VV"O I OMNW 


PINE & AAAI 2 3 @ HOO NBN AMMMOCIOOOWWD> > Fr 0OOOOOOOo~-~ 


1¢75 
1¢ 
1¢ 
1¢ 
1C8A 
i} sa 
ate 9 PUSHAB PASS$FV_OUTPUT 
1CA6 
1EAE 
1eB 
1¢BB 
1CBE 
1604 
1066 
1¢ ¢ 
1¢ 
1€09 PUSHL 
000000006 FF 1C0B PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 1CE1 CALLS #3,PASSWRITE_STRING 
000000006 FF 1CE8 PUSHAB CRLF _SHIFT 
6 1¢ F PUSHL @# 
000000006 Fr 1¢ PUSHAB PASSFV_OUTPUT 
000000006 EF ieee 3 1¢ 6 CALLS #3 PASSURITE_STRING 
55 10 : PUSHL & 
000000006 EF 1005 PUSHAB PASSFV_OUTPUT 
000000006 EF i 3 1p ; CALLS #5 ,PASSURITE_STRING 
000000006 FF 9F 01015 96$: | PUSHAB SHIFT : 1038 
4 pp 1018 PUSHL 
000000006 EF 9F 01D p PUSHAB PASSFV_OUTPUT 
000000006 EF FB 01D CALLS #3,PASSWRITE_STRING 
FFFFBI13E EF 9F O1D2A PUSHAB C.AHN 
DD 01D PUSHL #46 
000000006 EF 9F 01D PUSHAB PASSFV_OUTPUT 
000000006 EF FB 01D CALLS #3,PASSWRITE_STRING 
000000006 EF 9F O1D3F PUSHAB CRLF_SHIFT 
pp 1D 3 PUSHL 
000000006 ai F 01D PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 01D4D CALLS #3,PASSWRITE_STRING 
FFFFB142 EF 9F 01054 PUSHAB (.AHO 
pp 1D5A PUSHL @ 
000000006 EF 9F 01D PUSHAB PASSFV_OUTPUT 
000000006 EF oobdy ji CALLS #5 PASSURITE_STRING 
000000006 FF F 01D6C 97% PUSHAB SHIFT : 1044 
4 pp 1D PUSHL @ 
000000006 EF 9F 0107 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 §B OID7A CALLS #3,PASSWRITE_STRING 
FFFFB117 EF 9F 01081 PUSHAB C,AHP 
pp 1087 PUSHL #3 
000000006 EF 9F 01089 PUSHAB PASSFV_OUTPUT 
000000006 EF FB O1D8F CALLS #3. PASSURITE_STRING 
DD 01096 PUSHL @# 
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Page 204 
4-277 12a, 
30-1986 19:35:50 DI SKSVMSMASTERSEEDF-SRCIEDFASK.PAS;1°¢ 
“Sep-1 
Generated Code 


bs: : 
PUSHL IDATA®! 
g EF Bp Binge CALLS. #3 PASSURITE INTEGER 
ror Te si 
000000006 EF FF bp 108 PUSHAB Cae OUTEN  onine 
000000006 FF fa 108 PUSHAB CRLF _SHIFT a 
000000006 _ EF 000000006 Fe Bp 1C6 PUSHAB Ap yh Pe th E. STRING 
0006 EF 9F CALL c aif R 
a O3 OF O1DDS PUSH OUTPUT 
eteacenaes ne i gp 100p CALLS” #9 PASSURITE, STRING 5 1052 
0006 EF ren FO 
0006 eF mi if 1DEA $:  PUSHAB SHIFT 
“tee O06 fs oop O1bFS Puan S$FV OUTPUT 
wore RHEE Fe Hara 
006 EF ~ AHS 
© veers FORTE Bats 
0000000 ae = BP OTEOA PUSHAB #8 PASSURLTE. “STRING 
, 000000006 FF “ 1610 PUSHAB CRLF _SHIFT 
SpUTESEES HF cossenes fr BD O1EID PUSHAB #8 PASSURITE. STRING 
000000006 FF fb 125 PUSHAB CANT 
000000006 EF FE Bt TESS PUSHAB ceeney CUTTY" ecmine 
00006 FF OF DIES CALLS as 
ceo tiie U6 
000000006 0946 EF DD OIEAS PUSHAB PASH OUTPUT LINTEGER 
0000 0006 EF OF re CALLS C.AHU 
_ 3 OP Bless PUSH. 39 
seen ee Ge BE? BESSY sain ; 1060 
0G EF CAL 6$$ 
se 0000000 Bs, f) E64 i GRY tt 
000000 oc er. 3F O1EeE 998: pUStiks PASSFV_OUTPUT 
000000006 FF D O1E74 PUSHAB #5 PASSWRITE, STRING 
G HV 
00g er 00000000 O§ EB 1H PUSHAB CA _ 
000000 FrFFeOR9 = EF D Ole CALLS. #9 PASSURI TE. STRING 
¢ 
, Sneccoees FF OB Rl Eoe CALLS a en 
SOCCGOOSS EF cnnns bi FB 1EkS PUSH RO" 
aden tie it fF o 1EAp name Peau ~ INTEGER 
Oe COPE Ries PUSHL. i 
45 
000000006 EF i DD OlEBC PUSHL 
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Kee a V2.4277 _ {Page 205 
Br8ep- 1984 19:38:80 Dr sKSVMSASTER: FEDF-SRCJEDFASK.PAS; 1° ¢80) 
VO4-000 . Generated Code ~Sep~' — = cig 
weeeres et CALLS” #3, PASSURITE. CHAR 
000000006 EF FB OIEC SHAB HIGH KEY. 
000000006 1 PB TESS CALLS #} NOR_LEN 
nensannict p BP Bt EDS PUSHL HIGH KEY 
OG EF BD REDA PUSHAB PASSFV. OUTPUT 
med 4) ee oe 
000000006 EF oF i PUSHAB CAN 
eoooon00G Fy Pe BETS FUBHKD.PASEEY OUTPUT aon 
000000006 EF oodey if if : Ru, 1608, ; 1068 
000000006 FF OF 1505 1008: PUSHAB  SHIF 
4 1 
commons FRI, ERO SEL OY sein 
mh FFFFBOOE: GFE RITA uBR Ei 
1 T 
eceseea e 
000000006 EF 3 FB OIF ae It OFFSET RO 
F 19 C5 OlFer * #32,0TAB-270(R0I,R12 
50 000000006 EF d Ee O18 EXTY 40,832,078 
SC FFFFFEF2GEF4O rc OAD He po ieee PUSHAB -4(FP) 
0006 EF re Ot Fe OlEas CALLS #1 .NUM_LEN 
sen 1 a re 
coooonns fF HE BFE, PURHS. PASS OTE ren 
oo00000s eF GS $F O1F66 PUSHAB  C-AnY 
PuT 
000000006 FF oF 168 CALLS, #3 PASSURITE. STRING 
000000006 EF oohty $f Siege Ru «169 : 1078 
000000006 EF $F JEZB 1018: PUSHAB SHIFT 
AS PASSFV_OUTPUT 
ee Hy CALLS, #3, PASSURITE. STRING 
Seceeeees GF es OD iF BUSHAB Anz 
D 1°93 T 
see MS Me ome cee 
000000006 EF roooooo0s EF oF 1FAg PUSHAB CRLF _SHIFT 
Bt ASSFV_OUTPUT 
coccce0es Fe Peer FARO FASE OUTPUT aang 
GOOONCNS EF ee FF ot Hiett PUSHAB C.AIA 
D ote SWAB PASSFV_OUTPUT 
000000006 Fe re hires CALLS #3 PASSWRITE_STRING 
006 EF RP Sires Ri «1698 ; 1087 
oes ore er SIFEE tozs: Eaten Atasz66,40.46 : 
Vv 6 
“DISPL 1038 
: : 1fDD “DISPL 1048 
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EDFASK Igege -1984 00:56: VAX-11 P V2.4-277 Page 206 
an tN Generated Code ~3007 138% ee ae ths R: VEEbe cRCIEDFASK.PAS:1 (83) 
v 1FDF -DISPL 1838 
V 1FE DISPL 
V 1FE “DISPL 1038 
V 31 O1FE BRW 106 
000000006 EF  9F O1FEB 103$: PUSHAB SHIFT : 1093 
4 pp IFEE PUSHL 
000000006 EF 9F O1FF PUSHAB Passe V_OUTPUT 
000000006 EF FB OIFF6 CALLS PASSWRITE_STRING 
FFFFAF9B i OF OFF PUSHAB coAlB 
0 pp 0 PUSHL 
000000006 Ff F PUSHAB PASsty OUTPUT 
000000006 EF 3 FB CALLS 3 PASSURITE STRING 
000000006 9F 0201 PUSHAB tet UTPUT 
000000006 EF i, Fe 8 CALLS #} ,PASSURITELNZ 
000000006 FF OF 0 1 104$: PUSHAB SHIFT : 1094 
4 OD 7 PUSHL # 
000000006 cf 9F 02029 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 «FB 0 F CALLS #3,PASSWRITE_STRING 
FFFFAF72 EF 9F 6 PUSHAB (C.AIC 
14 DD 0203C PUSHL #20 
000000006 ai 9F 020 E PUSHAB PASSE OUTPUT 
000000006 EF 3 FB 0204 CALLS 3 PASSURITE STRING 
000000006 EF 9F 02048 PUSHAB st 
000000006 EF 1 re 051 CALLS A SORT TELNE 
Ov 11 02058 BRB 104s 
000000006 EF 9F 0205A 105$: PUSHAB SHIFT : 1095 
4 dD 06 PUSHL 
000000006 EF 9F 0206 PUSHAB PASSFV OUTPUT 
000000006 EF 3 FB 0206 CALLS #3,PASSWRITE_STRING 
FFFFAF4D F oF O6F PUSHAB C. AID 
D OD 075 PUSHL #45 
000000006 EF 9F 0207 PUSHAB PASSrV OUTPUT 
000000006 EF 3 FB 0207D CALLS 5 PASSURITE STRING 
000000006 EF 9F 02084 PUSHAB ste UTPUT 
000000006 EF 1 fy OBA CALLS #1 See sons TeLN2 
Ov 11 02091 BRB 107$ 
Bae 106$: 
000000006 f oF 95 107$: PUSHAB SHIFT + 1104 
000000006 FF er $33 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 §B O20A1 CALLS #3,PASSWRITE_STRING 
FFFFAF44 f i OAs PUSHAB 
000000006 EF 9F Saf PUSHAB PASSFV_OUTPUT 
000000006 EF oobdy i 6 CALLS #5 PASSURITE, STRING 
000000006 EF : 108$: PUSHAB  § SHIFT : 1111 
000000006 FF F 020C PUSHAB PASSFV OUTPUT 
000000006 EF 3 FB 020¢ CALLS #3,PASSWRITE_STRING 
FFFFAF3B EF 9F 5S PUSHAB C.AIF 
000000006 EF oP ts PUSHAB PASSFV 
000000006 EF FB 4 CALLS #3 Hath ad STRING 
000000006 Ff 9F OO0EA PUSHAB cuR BAX FIXED 
000000006 EF 1 FB 020F0 CALLS #1,RUM_CEN 


Blo 


Page 207 
=277 31 (oa) 
n 7 :56: eM a Pe SRCJEDFASK.PAS;1 
“Sep-1984 00:56: MSMASTER:CEDF. 
d Code "$28ep=1986 19:88:93 D1SKsv 
Generate PUSHL RO 
50 DD 0207 PUSHL, CUR MAX FIXED 
Sooco000e FE oF 105 CALLS. #3 PASSWAITE, INTEGER 
3 FB PUSHAB C.AI 
000000006 EF F 9F 021 PUSHL 4&7 
sasnciee 3 oP 11 PUSHAB PASSE YGOUTPUT. 
000000006 i E BSi1A CALLS #348 1118 
00000000G_ EF 0000v if } } 109$: PUSHAB sa 
000000006 Ff F 135A PUSHL SFV UT 
¢ BP 8S] PUSHAB PASSEY OUTPUT, RING | : 1120 
000000006 fs Fe Ost ; SBC. #O“VARIASLE RECORDS, 11 :1 
ovdbo0o000¢ EF Pr Ostet cue 5, Abe 
V 
ont ae La 
0000 FB O214F : C.AlI 
mietoowe “ prreace2 GF SF Galse 1118: FUSHAB CA 
POP OSiae PUSHAB #8 PASSURITE STRING : 1126 
; 000000006 i f 164 ey IDATAS 256,415 : 1128 
900000006 GF 000001006 EF 12 "3 BNEG 1138, 
F HL # 
FFFFAEDO fe pp 0 7A Ath PASSE OUT yy ' ING ; 1130 
wees $5189 1138: GBs’: MOLVARIABLE Re conDs, 1158 et 
00000000G_ EF 00 E0 139 1138: PUSHL 1 $P) 
00v00000000G_ EF 1 pd0 131 MOV ZBL Mo (se 
0000000G EF 9A 8 PUSHAB PAS 5° fa T CHAR 3 1134 
" boooo000g aa 44 130 CALLS a5 cAs “ 
5$: PUSHAB 
00000000G_ EF F QF O21A7 11 PUSHL # 
FFFFAEAS fr Bp TAD PUSHAB BRS SANSONT TY stRING 
oooo0000G FF OF OgtAE CALLS #5, x REC 
000000006 000000006 i 24 1¢5 CALLS 4E Rum 
000000006 0 oD PUSHL 
1CB v_OUTP 
Hittite Tae aT Sey satay INTEGER 
og ep rns Ee i a BUSH 4} 
0000000 1 DD PUSHL 
P BP OSiE PUSHAB f3 PASSURITE. CHAR 
0000006 EF 9F CALLS # ERSE™ 
00000006 EF e 05 OF 1EF PUSHAB ans 
0 PUSH 
noooooooe SBP Sate SMO POSEY OUTEY" rman 
- 000000006 fF FB OO1FD pitts c AIL 
000000006 F OF PUSHL 
reese | Et bd Oge0A PUSHAB #8 PASSURITE STRING 
000000006 BS fe 095 BUSHAB ANSI RESET 
900000006 FF 400000006 cE oF 02ei9 PUSHL 


N 7 
04-000 Generated Code Mergenn 1 3Be 99:38:99 DESKSVMSMASTER FEDF <SRCJEDFASK.PAS; 1 ¢8n)~—° 


000000006 FF PUSHAB PASSFV_OUTPUT 


OF 
000000006 EF FB 4 CALLS #3,PASSWRITE_STRING 
FFFFAE2ZA EF E PUSHAB ¢ AIM 
000000006 EF 8? 6 PUSHAB P S$FV_OUTPUT 
000000006 EF 3 re ¢ CALLS PASSWRITE_STRING 
00000000 “ F DF 4 116$ BUSHAL i 58 : : 1147 
00000006 EF 1 EB 46 "CALLS #1,CLEAR . 
gov 0000000G_ EF 0 E 2 BBS ‘ *FULL_PROMPT,118$ : 1149 
03 00000000G_ EF wolle iT : BBS é #0, TEMP FULL_PROMPT, .+3 
000000006 FF F 83 118$: PUSHAB SHIFT 3 1153 
4 DD 0226C PUSHL #4 
000000006 F OF gE PUSHAB PASS$FV_OUTPUT 
000000006 EF FB 4 CALLS #3,PASSWRITE_STRING 
preees  Reee 
000000006 ai 9F 02283 PUSHAB PASSE Y OUTPUT 
000000006 EF canis 3 FB 89 CALLS 5 PASSURI TE. STRING 
4 DD 0229 PUSHL 
000000006 EF oF 38 PUSHAB PASS$FV_OUT 
000000006 EF alta 3 Fe + CALLS #3 PASSURITE. STRING 
4 DD 022AB PUSHL # 
000000006 EF OF 8 Ap PUSHAB PASSE OUTPUT 
000000006 EF 03 FB 0 BS CALLS #3, PASSWRITE_STRING 
0000084G EF DD 022BC PUSHL IDA Asis 
00000006 EF 9F ce PUSHAB aeeery 
000000006 EF ea 3 Fe C8 CALLS #8 PASSURITE. INTEGER 
000000006 ° BP Bs PUSHAB PASSE. OU 
pevemeee. 5 000000006 ; or pe sushaB #3 FASSURLTE. ——n 
4 DD O22EA PUSHL 
000000006 EF BF E PUSHAB PASS$FV_OUTPUT 
000000006 EF SR: 3 Fe F CALLS, #3. “BASSWRITE _STRING 
D O22rF PUSHL ioe 
000000006 é er 01 PUSHAB PASSFV_OUTPUT 
000000006 EF seimaiadl 5 Fe 07 CALLS a3 PASEURITE. STRING 
rooonooce fF ORR RES «eta. sexy ovreur 
000000006 EF wont 05 FB i CALLS #8 PASSURITE, STRING 
omen ato ris HS 
000000006 EF iain O5 FB i CALLS EARLE STRING 
connooos PF SPARES Ba Rest outa 
00006 EF 3 «FB CALLS #3 ary our ee _STRING 
peceterns « FFFFAD67 EF 9F 02340 PUSHAB C.AIR 
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VAX-11 Pascal V2. 
as +9 Generated Code ig 3eo7} 1384 99: 3: 7 DISKSVMSMA TER: esse eee SRCJEDFASK.PAS;1 Page 
3xC D PUSHL 
cononns ar mows FEHR tS FEY OY rin 
00000000G_ EF oF PUSHAB 
Ob Bp PUSS eo 
00000000G_ EF ns Fe 4 Q CALLS if {PASSURITE, STRING 
iene OD PUM HS 
cceabonntie Ff PB gf CALS #3 aie fe STRING 
00000000G_ EF . ereane 
000000006 F OF PUS 
00000000G_ EF Ff 4 3 GabLs Ht PASSURITELN2 . 1168 
000000846 O8 ; 3 
3 1 oF BEQL + 
000000006 fF Hi A USHAB ee 3 1172 
PUSHL a4 
000000006 . bp Ae PUSHAB PASSFV_OUTPUT 
00000000G_ EF f ce os buthie a. PasSuni Te. STRING 
fF 
conooons HOHE BUS Hey 
00000000G_ EF eeeeneee: ES 44 c} pt HS PASSuRITE, STRING 
U 
sooooocog FSP Ree PUSH Bey 
sennabees er 44 oe Ckers a OASSORITE. STRING 
ae FFAD89 ; £8 of PUSHAB Se ytt 
soennoos FEARS Bt Filey aug 
enapeaen: ff +4 ee eyons th PASSURITE, STRING 
eee 000000006 uP oB a PUSHAB CRLF_S 
06 0 F PUSHL # 
F TPUT 
aonnnons er Ommonns FL FE A FAP FRY OUT rn 
cones fF AHS ta Play 
00000000G_ EF eeaenents: Fe 4 4} CALLS #8 PASSURITE STRING 
00000000G_ EF eoseseees fr +4 ¢ : Pyeng ft cPASSWRLTELN2 - 1181 
connnans fF FE RE 120 Ne ee ih : 
secncoees GF Ov ‘6 43C BRB 1 § - 1189 
000000006 Ff +4 rh 1218: ae § eure . 
FV_OUTPUT 
esnaneens Ff oF tee yy PAssrv ourpu STRING 
Soeeeeees oF FFFFAD91 FF £8 a3 PUSHAB cAlw 
E D 43 PUSHL #14 
TPUT 
conon00s FE BF Bet Some te eee , 
00000000G_ EF Ba, 4 ac PA s7H8 5 1191 
000000846 + 9 4 istt ipATA 
4 ov OF ¢ b tL C.AIX : 1193 
Feveaes ff DD 0247 PUSHL #17 


50 0 
50 chthinbericcemal 


Generated Code 


00000000G_ EF 


000000006 
F 3 
bi 
64 
Os 
1 


000000006 
000000006 


000000006 


000000006 
00000006 


000000006 
000000006 
000000006 
000000006 


000000006 


000000006 


com 


000000006 


090000006 
000000006 
000000006 
FFFFADGE 

000000006 


FFFFAD38 f 
000000006 6 


0 
FFFFAD28 
000000006 


0 
FFFFADI8 F 
000000006 EF 


0000V 
FFFFADOS F 


000000006 05 


0000v 

FFFFACF8 f 
000000006 m 
Vv 


FFFFACES fF 
000000006 O8 
00 


MOrn 


nm 


~$eo1964 0086305 y 


~OCeOD0D CO NI~ 
vwn oe —@ O~NvNnoD 


MMI "OO MOMO MO "OOOO 
PWS 


QMORNOSOONOVCONO"OVTVTO-"O 
FUSUSUSIS SE B™ Be Be Be BB BBP PPP PPP PPP PPP PPE EE 


pbs barn bs HO a nen Ee 


own 


nO 7—Oonm 
AP HMO ONE BL FS FMO QMO S L$ SF FMO ONE YS fF - TID ON nm 


PVUPVWPVIV IV IV IVIVIVIVIVSVSIVUSVSVSIUSVSVSVSISIOS 
DNININIA A AMMAN ESE & EAA = 


wn" 
=o 


MSMASTER: 


PASSF t 
‘ PA E_STRING 


PASSFY OUTPUT 
a3 PASSWRITE CHAR 
PASSFV_OUTPUT 
HPA > PASSunI TELNZ 


a4 
PASSFV_OUT ry 
c, pAssuait STRING 


fis 
#25,0 
‘4 ° 
i 
9 
0 
1 


a 

1 

1 

1 

1 
1 
185 
CAA 
ee 
PASSFV_OUTPU 

#3 ,PRSSWRLTE, STRING 


C.AJA 
a 


PASSFV_OUTPUT 
a3 PASSORI TE STRING 
169$ 


c AJB 


PASSFY UTPUT 
#3 PASSURITE. STRING 
C.AJC 


PASSFV_OUTP 

#3 PASSURITE. STRING 
C.AJD 
) 


PASSFV_OUTPUT 
geese STRING 


C,AJE 


PASSFV_OUTPUT 
rs PASSURITE _STRING 
169$ 


FV OUT 
ASSMRITE STRING 


; 
32 jatas-270tR03, RO 


#0, 
& 
S 
$ 
& 
$ 
$ 
% 
IZ 
S$ 


1 Pascal VE seeet? 


Page 210 
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; 1197 


1199 
1206 


1208 


1210 


1211 


1212 


1213 


1214 


1215 


8 
$4800 Generated Code stein st: 99:30:93 PEeSumsMASTER Ceor <SRCJEDFASK.PAS: 1 ¢BED~ 


0000v 31 1 BRW 169$ 
oe 00000000 ? 1328: PUSHAL ii psa : 1232 
oovB90000006 Ee E 4 BBS #0; FULL_PROMPT ,136$ : 1234 
0 G EF ¢ BBS #0, TEMP-FULL_PROMPT, .+3 
0000v 5 A BRW 146$ 
000000006 Ff i a 136$: PUSHAB SHIFT : 1238 
000000006 Ff oP AF PUSHAB PASSFV_OUTPUT 
000000006 EF 3 §B 02585 CALLS #3,PASSWRITE_STRING 
FFFFACAO Fe F f BUSHAB CskaF 
000000006 fF BP ¢ PUSHAB PASStV OUTPUT 
000000006 EF 3 FB O25CA CALLS PASSURITE _STRING 
000000006 cf 9F 02501 PUSHAB Angi R RSE~ 
cooooooes ff BP HE38) BBs Bisary oute 
000000006 EF 5S FB O250F CALLS #3 PASSUNITE. _STRING 
FFEFFAC7A FF oF st PUSHAB C.AJG 
000000006 f 4 EE PUSHAB Passe out 
000000006 EF 5S FB sre CALLS 3 PASSURITE, _STRING 
000000006 FF OF O25FB PUSHAB ANSI R RESET 
000000006 t 4 03 PUSHAB PASSFV_OU 
000000006 EF 5S FB 609 CALLS #3 DASSORITE. STRING 
000000006 EF  9F 02610 PUSHAB PA 
000000006 EF 1 FB 616 CALLS #1 -PASSURITELNZ 
03 000000006 EF “a 0 i oH BBS ’ gpecc RT,.+3 : 1245 
000000006 Fe F 026 PUSHAB CRLF 3 1249 
D 026 PUSHL #2 
000000006 FF oF 6 5 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 02636 CALLS #3, PASSURITE _STRING 
000000006 FF 9F 026 PUSHAB LOW_SHI 
sooooooce $2 BP Peeks PUSH Fe 
000000006 EF 65 FB 0264 CALLS #3 SASSORI TE. _STRING 
en a 
$6 0900006 FF OF est PUSHAB OUTPUT 
000000006 EF 3 FB CALLS #8 PASSURI TE. STRING 
000000006 ai i 8 PUSHAB CRLF 
000000006 FF P er PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 0267 CALLS #3. PASSURITE_STRING 
000000006 FF ep 0 PUSHAB LOW_SHI 
00000006 EF 9F PUSHAB PASSFV 
000000006 EF . 5S FB E CALLS #3 SASSUnITE. _STRING 
a in age fat 
F 9F O26A PUS PASSFV_OUTPUT 
000000006 EF _ 6S FB it CALLS a3, PASSWRITE _STRING 
000000006 Ff oF AE BUSHA cRCF 
000000006 EF BF 686 PUSHAB PASSFV_OUTPUT 


| 
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Page 212 V 
G L_V2.4-277 K.PAS;1 (54) 
NERGCIH USSG BRGdGHSHbEeSe@hcora 
Sep-1984 8 cPASSURITE STRING 
EDEA x Generated Code 03 re oes cithis | W_SHIFT 
fF oF cs SHL 
“860 000000006 EF Orono Fe pp 0e6c PUSHAB #3 PASSURITE. STRING 
00000000 FF oF of BUSHAB CsAuJ 
EF 9F PUSHL TPUT : 
000000006 bo00089, BF BD Osébe Pusha PASSEY ouTe =STRING 
Gooo0odes fF oF EA PUSHAB ERLE 
F OF SHL 1 
GOCSSOCTS OF Ce nconns 44 pp i PUSHAB P “PASSURITE. STRING 
000000006 FF oF ef PUSHAB LOU. SHIF 
F OF SHL 
TOTTITS  F acennees fF pp 70¢ FUSHAB #3 PASSURITE. STRING 
ooooo000s FF oF at PUSHAB E,4UK 
EF oF PUSHL 
sang 00005". BF BF 05797 Sry #8 PASSURITE, =STRING 
boo000des FF SF 790 PUSHAB  CACF 
F F HL 
000000006 E 000000006 Fe +4 T3A PUSHAB #3 PASSURITE, _STRING 
cooonnnnG Fs fo bates PUSHAB 100. SH 
EF OF PUSHL TPUT 
wed 65 OF Orsi CALLS. #9 PASSURITE. STRING 
00000006 EF 9 157 PUSHAB ¢ saat 
F oF SHL UT 
000000006 FFFFACSG EE BD 0764 PUSHAB #8 PASSURITE _STRING 
800000006 BS Pe B59 BUSHAB CR 
F 0277 He, T 
00mne00s FF seoasooos fe Sf ie PUSMABPASSry ourPuT 
000000006 FF oF th PUSHAB LOU. SHIFT 
F OF USHL T 
000000006 EF noo aa oD 199 PUSHAB #8 PASSURITE. STRING 
ov0000006 FF OF 794 BUSHAB CAIN 
G EF rl PUSHL TPUT 
von, - He FREE PERISOUY rn 
006 RLF 
3 «FB PUSHAB 
G EF F 9F O27BA PUSH. UTPUT 
monenes “* goo00o00c be oF ree CALLS. #8 PASSURITE _STRING 
oooo0006 FF Fe 097¢8 PUSHAB LOW_SHI | 
EF OUTPUT 
ponn0n00s FF 400000006 63 BP OSD? CALLS, #3 PASSURITE. STRING | 
oooooo00s FF oF 700 SUSHAB CAIN | 
F OF SHL 1 | 
000000006 EF ee Or Stee PUSHAB Te PASSURITE. STRING | 
F OO7F ALLS #3,P | 
-, woonoodes FF BF O3rtO : 
000000006 


arenas ~) 


F 
gr S00 1FBs 99:88:93 Nach dmGmaSteR cr sacJEDFAsK.Pas;1 s8n0~ 
oF i PUSHAB CRLF 


EDF ASK 16*$ 
104-000 Generated Code -$ 


000000006 FF 9 PUSHA | 
000000006 f F PUSHAB + PASS$FV_OUTPUT | 
000000006 EF FB CALLS #3,PASSWRITE_STRING 
000000006 Fe i BUSHAB LOW.SHIFT | 
000000006 ai F A PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 8B Q CALLS #3,PASSWRITE_STRING 
FFFFA £9 Hi OF PUSHAB (C.AJO | 
99000 F &§8F DD PUSHL 
006 Fr F PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB CALLS #3,PASSWRITE_STRING 
000000006 FF oF 0 BUSHAB cRCF 
000000006 ai F § PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB F CALLS #3,PASSWRITE_STRING 
000000006 FF 3 PUSHAB LOW_SHIFT 
000000006 FF F p PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB CALLS #3,PASSWRITE_STRING 
FFFFADOG cf OF 4 PUSHAB C.AJP 
999000 F DD 0 PUSHL # 
00006 FF F 02876 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB rc CALLS #3,PASSWRITE_STRING 
000000006 ai OF PUSHAB CRLF 
2 oD 3 PUSHL #2 
000000006 ai F B PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 02891 CALLS #3,PASSWRITE_STRING 
000000006 FF i 98 PUSHAB LOW_SHIFT 
000000006 ai F Hi PUSHAB PASSFY_OUTPUT 
000000006 EF 3 FB 0286 CALLS #3,PASSWRITE_STRING 
FFFFADIB EF a 5 PUSHAB C. Ava 
$b 0800086 Fr F PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB CALLS #3,PASSWRITE_STRING 
000000006 ce oF PUSHAB CRLF 
000000006 FF F PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB CALLS #3,PASSWRITE STRING 
000000006 EF 9F PUSHAB PASSFV_OUTPU 
000000006 EF 1 8 CALLS PASSWRITELN2 
0000v BRW 139$ 
000000006 Fe 138$: PUSHAB CRLF : 1277 
000000006 EF 9F PUSHAB PASSFV_OUTPUT 
000000006 EF fs FB CALLS #3,PASSWRITE_STRING 
000000006 Ff ii PUSHAB LOW_SHIFT 
000000006 Ff F PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB CALLS #3,PASSWRITE_STRING 
. FEFFACFF cf OF PUSHAB C.AJR 
90000 3 F DD PUSHL @ 
006 . F PUSHAB PASSFV_OUTPUT 
000000006 EF FB CALLS #3,PASSWRITE_STRING 
000000006 Fe OF PUSHAB CRLF 
2 oD PUSHL #2 


Q 


Peat)?" 
scal V ASK.PAS; 1 
if geo-tag 9:38:93 DEEkSusmagtenstepr sec Jer 
-“sep- 
T 
d Code SHAB PASSFV_OU NITE. STRING 
FASK Generate 6 #3, PASSWRI 
vo4~000 og er 000000006 FF fb i PUShias LOW. SHIF 
0006 PU TPUT 
00 F PU TPU 
on, , ite FREE RES HRY sr 
006 EF pe O5 oF i PUSH. #2 ie, 
00 F NITE 
000000006 FF £8 Os97F BUSHAB LOU. SHI 
0006 7 PUSHL TPU 
00000 oooo0006 FF oD abe PUSHAB Hoary oer _STRING 
speveeeenea |r: 3: am oh 
000006 E F PUSHL UTPUT 
ae oe) oe PS TY sn 
maw ee gap SUSHAB ¢ cRL 
EF oF SHL T 
mein Fe BD O29BA PUSHAB #3. PASUURITE. STRING 
en hs ee PUSHAB LOU. SHI 
000000006 EF rooon0006 FF OF ace PUSHAB PASSFV_ OUTPUT 
00 FS Bo O29CF CALLS. #3 PASSURITE. STRING 
ooooooogs FF 9F 02901 CALLS. #5, PA 
aaenenee © seecnses > ong PUSHL PASSFY. OU 
ppDODEe BE BD dere pushes #8, PASSURITE. _STRING 
 oecoonos fMRI Bids Fa 
0006 F PU TPU 
00000 000000006 FF BD O29rD PUSHAB Fa PASSURITE _STRING 
SOCCREEES OF ccs TO Avs PUSHL ee 
000 03 4 Al sy PASSURITE. _STRING 
000000006 fF FB AlA sO HAB ¢ AsV 
0G EF F O9F PUSHL TPUT 
ae ae: BR He et 
006 A CRLF 
3 £B OgA3s PUSHAB 
000000006 EF ane FS op he PUSHAB Psa “STRING 
vovme $e ee don =| ERLE Fa rit 
000000006 EF 00000G EF 9F QeA4 SHL PASSFV_OUTPUT 
ot ae ee 
eoscseees GL Ss 0 PUSHAB t Auw 
SOOREEETE OF noes re t ep re PUSHAB PASSFV_OUTPUT 
800000086 EF 9F OSA 


voe-000 Generated Code if seo- 1984 
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000000006 EF 03 FB O2A CALLS #3,PASSWRITE_STRING 
000000006 FF 9 K BUSHAB CRLF " 
000000006 FF 8? PUSHAB PASSFV_OUTPUT 
000000006 EF heemueee fr fe A CALLS orate _STRING 
3 DD 02a9 PUSH 
000000006 FF P ADA PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OOAA CALLS #3 PASSURITE STRING 
soosenee, br fh Genny UE? Ga 
00G EF 9F O2AB PUSHAB PASSFV_OUTP 
000000006 EF 5S FB OOAB CALLS 3 “ASSURITE, STRING 
000000006 a Aco BUSHAB CR cal 
000000006 FF 8? AC PUSHAB PASSE OUTPUT 
000000006 EF 3 FB OOAC CALLS 3 PASSURITE _STRING 
000000006 Fe F ) ADS PUSHAB t au SHI 
000000006 ai eP AD PUSHAB PASSTV OUTPUT 
000000006 EF 3 FB O2AE CALLS #3,PASSWRITE_STRING 
HOO0ODLE. BF Bb OSArO PUSHY c “it 
8 0000006 FF oF AF6 PUSHAB PASSFY 60 
000000006 EF 3 FB OOAF CALLS R OASSURITE. _STRING 
000000006 cf F 803 PUSHAB  ¢ He 
000000006 ai or 8 B0B PUSHAB PASSFV 
000000006 EF 3 FB 02811 CALLS #3, PASSURITE, _STRING 
000000006 cf oF B18 PUSHAB LOW SHI 
000000006 ai or B 5 PUSHAB PASSFV 
000000006 EF 3 FB 02B26 CALLS #3 SASSORITE. _STRING 
pooner Hr Sb Hee BUR? GQ 
$0 0800006 FF oP B39 PUSHAB PASS$FV_OUTPUT 
000000006 EF Secasiaiad i Fe Bsr CALLS #3, “BASSWRLTE _STRING 
2 DD O2B4C PUSHL ie 
000000006 Ff BF BAe SHAB PASSFV_OUTPUT 
000000006 EF 3 FB 0285 CALLS #3, PASSURITE _STRING 
cccconone Few Meese pur gi. lrt 
000000006 ai P SHAB PASSFV_OUTPUT 
000000006 EF 3 «FB CALLS #3,PASSWRITE_STRING 
ec Can am 
$609 0 FF er 87 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB ; CALLS 3 PASSWRITE _STRING 
cccoooone fm See Me SS 
000000006 Ff BF B91 PUSHAB PASSFV 
000000006 EF 3  §B 02897 CALLS #3 se sourTe. STRING 
000000006 EF 9F BoE PUSHAB PASS$FV_OUTPUT 
000000006 EF i re A CALLS #1,PASSWRITELN2 
Ov 11 O2BAB 1398: BRB 141$ 
000000006 EF 9F O2BAD 140$:  PUSHAB SHIFT : 1307 
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04 00 0288 PUSHL #4 
000000006 Ff gP Be PUSHAB PASSFV_OUTPUT 
000000006 EF 3 §B OcBB CALLS #3,PASSWRITE_STRING 
FFFFADOE Ff F BC PUSHAB ¢ AxB 
000000006 FF BF BCA PUSHAB PASStY OUTPUT 
000000006 EF FB B00 CALLS #3,PASSWRITE STRING 
000000006 Ff 9F O2BD PUSHAB PASS$FV_OUTPUT 
000000006 EF 1 §B O2BDD CALLS #1,PASSWRITELN2 
000000006 EF 9F O2BE4 141$: PUSHAB SHIFT 3 1314 
4 00 O2BEA PUSHL #4 
000000006 Fe or BE PUSHAB PASSFV_OUTPUT 
000000006 EF FB OOBF CALLS #3,PASSWRITE_STRING 
rrvvoss ia tb ieee uae Gi 
000000006 FF or C01 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 02C07 CALLS #3,PASSWRITE STRING 
000000006 FF 9F O2COE PUSHAB PASSFV_OUTPUT 
LL ITELN 
000000006 EF 1 FB 02C14 CALLS #1,PASSWRITELN2 
000000006 cf F C18 PUSHAB suit : 1315 
000000006 FF P (23 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 02C29 CALLS #3,PASSWRITE_STRING 
AD F OF O2C PUSHAB (.AKD 
perenne F 48 ¢ 4 PUSHL cA 
000000006 Fr P ¢ § PUSHAB PASSFV_OUTPUT 
000000006 EF oobdy fe CSE CALLS #5 ,PASSURITE_ STRING 
00000000 8F ODF 02048 142$:  PUSHAL #0 : 1327 
999900006 EF 1 FB Cor CALLS #1,CLEAR 
00 000000G_ EF 0 €0 02¢5 BBS #0; FULL_PROMPT,144$ : 1329 
03 000000006 EF 0 €0 02C¢5D BBS #0, TEMP—FULL_PROMPT, .+3 
0000v 31 02¢65 BRW 145$ 
000000006 FF F 02068 144$: PUSHAB SHIFT : 1333 
4 pp Coe PUSHL #4 
000000006 FF F O2C PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 02C76 CALLS #3,PASSWRITE_STRING 
rom of tte uM fait 
000000006 EF 9F O2c PUSHAB PASS$FV_OUTPUT 
000000006 _ EF 3 FB Oc CALLS #3,PASSWRITE_STRING 
000000006 f oF C9 PUSHAB ANSI REVERSE 
000000006 EF P COA PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB cAQ CALLS #3,PASSWRITE_STRING 
rrraoos fb tae UR fai 
000000006 EF or CAF PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 02cB5 CALLS #3,PASSWRITE_STRING 
000000006 f oF te PUSHAB ANSI_RESET 
000000006 FF 4 cc PUSHAB PASSFV_OUTPUT 
000000006 EF aeaaiind 3 Fe CCA CALLS #3 -PASSURITE_STRING 
5b pp (D7 PUSHL #2 
000000006 ai F 02CD9 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB O2CDF CALLS #3,PASSWRITE_STRING 


Sep-1984 19:35:90 DISKSVMSMASTER:EEDF<SRCIEDFASK.PAS:1° C80) 


EDFASK 1 
04-000 Generated Code 


PUSHAB 
000000006 _ EF CALLS 43, PASSURITE. STRING 


FFFFACCS PUSHAB C.AKI 
#43 


000000006 FE OF O2CE6 PUSHAB CRLF SHIFT 
6 pp cEC PUSHL 
000000006 ai F O2c ; PUSHAB PASSFV 
000000006 EF 3 FB OOCF CALLS #3 SASsunI Te. _STRING 
FFFFACCD gE OF OOCFB PUSHAB ¢ AKG 
6 pp D PUSHL 
000000006 ai F 02D PUSHAB PASSF 
000000006 EF 3 FB 02D CALLS “3. PASSURITE, STRING 
000000006 cf 9F 02010 PUSHAB CRLF_S 
6 pp Dig PUSHL 
000000006 FF F 0201 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 02D E CALLS #3 SASSURITE _STRING 
FFFFACCB cf 9F 02D PUSHAB (.AKH 
1 pp D2B PUSHL # 
000000096 FF F 02D p PUSHAB PASSFV_OUTP 
000000006 EF 3 FB 02D CALLS 3 PASSURITE, _STRING 
000000006 FF 9F O2D3A PUSHAB CRLF_S 
6 pp D4 PUSHL 
000000006 FF oF Dd SHAB PASSFV_OUTP 
cr OF O2D4F 
B pp 035 PUSHL 
000000006 ai F 0205 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 02050 CALLS #3. PASSURITE_STRING 
000000006 FF OF 02064 PUSHAB CRLF_SHI 
6 DD O2D6A PUSHL 
000000006 EF OF D PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 02D CALLS #3,PASSWRITE_STRING 
FFFFACC7 EF 9F 0207 PUSHAB (.AKJ 
c pp D7F PUSHL oem 
000000006 ai F 02081 PUSHAB OUTPUT 
000000006 EF eianeeen : FB ° d CALLS #3 bags Te stRING 
56 pp 094 PUSHL 
000000006 ai F 02096 PUSHAB PASSFV_OUTPUT 
000000006 EF ieee : Fe 09 CALLS #3, PASSURITE_ STRING 
5B DD O2DA9 PUSHL #43 
000000006 FF OF O2DA PUSHAB PASSF PUT 
000000006 EF 3 FB 0208 CALLS #3, PASSURITE _STRING 
000000006 FF 9F 02088 PUSHAB CRLF_SHIFT 
6 pp DB PUSHL 4&6 
000000006 EF F 02DC PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 02006 CALLS #3,PASSWRITE_STRING 
FFFFACCB gf 9F O20¢ PUSHAB C.AKL 
3 pp DD PUSHL 
000000006 Ff F 0200 5 PASSFV_OUTPUT 
000000006 EF 3 FB 0200 CALLS #3 -PASSURITE_STRING 
000000006 cf 9F O2DE PUSHAB CRLF_S 
6 po DE PUSHL 
000000006 FF F O2DEA PUSHAB PASSFV 
000000006 EF 3 FB DFO CALLS #3 PASSUITE. _STRING 
FFFFACCS EF 9F O2DF PUSHAB C.AKM 
A pp DFD PUSHL @ 
000000006 Fr F OODFF PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB E05 CALLS a3. PASSURITE _STRING 
000000006 EF 9F O2E0C PUSHAB CRLF _SHIFT 
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EDF ASK 1 
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06 DD 02€1 PUSHL #6 

000000006 Fe ef Elz PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OOEIA CALLS #3,PASSWRITE_STRING 

rrvacer io See) puate fe 

000000006 Fr 8? £09 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OccoF CALLS #3,PASSWRITE_STRING 

soooonns fee uate aU 

000000006 ai BP E E PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB O2E4 CALLS 4#3,PASSWRITE STRING 

000000006 EF 9F O2E PUSHAB PASSFV_OUTPUT 
000000006 EF 1 re : i CALLS #) PASSURITELNZ 

000000006 cf 9F O2ESA 145$: PUSHAB SHIFT : 1364 

000000006 : oP Eee BUSHAB PASSFY OUTPUT 
000000006 ‘EF 8 FB 02b6 CALLS #3,PASSWRITE_STRING 

FPFFACAD Tt ObD SERS PUSH. AaB 

000000006 ai 9F 02E77 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB O2E7D CALLS #3,PASSWRITE_STRING 

000000006 ce F EBA PUSHAB CRLF _SHIFT 

000000006 ai OF ee PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB E98 CALLS #3,PASSWRITE_STRING 

rrvaca? Sh fe Buaile iP 

000000006 EF 9F O2EAI PUSHAB PASSFV_OUTPUT 
000000006 EF 65 FB O2EA7 CALLS #3,PASSWRITE STRING 

000000006 EF 9F O2EAE PUSHAB PASSFV_OUTPUT 
000000006 EF 1 FB O2EB4 CALLS #1,PASSWRITELN2 

000000006 f 9 EB 146$: PUSHAB suiFT : 1373 

000000006 EF  9F O2EC3 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB O2EC9 CALLS #3,PASSWRITE_STRING 

rrvacos Ho ee ue Ga 

000000006 EF 9F Ede PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB EDE CALLS #3,PASSWRITE_STRING 

000000006 cf oF EES PUSHAB ANSI REVERSE 

000000006 Ff oF EED PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OEF CALLS. #3,PASSWRITE_STRING 

FFFFAC96 a4 i EFA PUSHAB C.AKR 

000000006 ai er i PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OF CALLS #3,PASSWRITE_STRING 

000000006 cf OF OOFOF PUSHAB ANSI_RESET 

4 po £13 PUSHL #4 

000000006 FF F O2F1 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OoF1D CALLS #3,PASSWRITE_STRING 

FFFFAC70 a4 ar i 4 PUSHAB 6 AKS 

000000006 EF BP F PUSHAB PASSFV_OUTPUT 
000000006 EF ; fe F CALLS #3,PASSWRITE_STRING | 

0000v F BRW 169$ 
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000000006 Ff 9F O2F3C 147$:  PUSHAB SHIFT : 1383 
4 po Fa PUSHL #4 
000000006 Fe F OOF4 PUSHAB PAS$FV_OUTPUT 
000000006 EF FB OOFGA CALLS 4#3,PASSWRITE_STRING 
FFEFFACG? FE OF OoF } PUSHAB C.AKT 
6 pp F PUSHL @# 
000000006 ai F 02°59 PUSHAB PASS$FV_OUTPUT 
000000006 Fe 3 FB OoFSF CALLS #3 PASSURITE STRING 
3 000001086 EF D1 02F66 CMPL IDATA+264,# : 1385 
; | F6D BEQL +3 
0000v 31 OoFéF BRW 149s 
999000006 EF p4 F ; CLRL ss EXTRA : 1389 
G EF 9F OOF PUSHAB LOWM + 1390 
000000006 EF } FB rve CALLS #1 .NUM_LEN 
900000006 EF DD 02F87 PUSHL LOWMAX 
00000006 EF  9F OoF p PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB OF CALLS #3,PASSWRITE_INTEGER 
1 DD O2F9A PUSHL #1 
D OD O2F9C PUSHL #45 
000000006 FF OF O2F9E PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB O2FA4 CALLS #3,PASSWRITE_CHAR 
000000006 EF 9F O2FAB PUSHAB CUR MAX REC 
000000006 EF i FB rel CALLS #1 ,RuM_CEN 
900000006 EF pp FBA PUSHL CUR_MAX_REC 
00000006 EF 9F O2FCO PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB O2FC6 CALLS #3,PASSWRITE_INTEGER 
1 DD O2FCD PUSHL #1 
9 DD O2FCF PUSHL #41 
000000006 Fr OF O2FD1 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB O2FD7 CALLS #3,PASSWRITE_CHAR 
000000006 cf OF OOFDE PUSHAB ANSI_REVERSE 
4 DD O2FES PUSHL # 
000000006 cf OF O2FE6 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB FEC CALLS #3,PASSWRITE_STRING 
FFFFABBD EF 9F O2FF PUSHAB (.AKU 
3 DD OoFFD PUSHL @# 
000000006 EF 9F O2FFB PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 «FB 01 CALLS #3,PASSWRITE_STRING 
000000006 f a 8 PUSHAB ANSI_RESET 
00G EF ee & if tice SRS SCH ITY STRING 
50 titi EF 3 Q 1p mutts #38 QTAB_OFFSET,RO : 1394 
FFFFFEFIGEF4O 4 3 CLRB QTAB~271CRO] 
000000006 EF 0 fF 149$: MOVL #2,EXTRA : 1402 
FFFFAB7E EF 9F 6 PUSHAB C.AKV : 140 
D C PUSHL @# 
000000006 Ff F E PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB CALLS #3,PASSWRITE_STRING 
000000006 EF 9F 3 PUSHAB LOWMAX 
000000006 EF } FB i CALLS a) .NUM_LEN : 
990000006 EF 0D A PUSHL LOWMAX 
00G EF 9F 0 PUSHAB PAS$FV_OUTPUT 
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000000006 EF 3 FB 6 CALLS #3,PASSWRITE_INTEGER 
> Bb Osoar PUSH #45 
000000006 Fr er J PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 0307 CALLS #3,PASSWRITE_CHAR 
000000006 EF 9F 43 PUSHAB CUR MAX _REC 
000000006 EF } FB 84 CALLS #} .RUM_CEN 
900000 0G EF pp 8 PUSHL CUR_MAX_REC 
000006 Fe F PUSHAB PASSFV_OUTPUT 
000000006 3 FB 0309 CALLS #3,PASSWRITE_INTEGER 
FFFFAB18 Ff i ie BUSHAB ¢ AK 
000000006 FF BP A PUSHAB PASSFV_OUTPUT 
000000006 EF 3 Fe AE CALLS #3,PASSWRITE STRING 
50 00000000G_ EF 19 g 0B MULL § aT OFFSET .RO : 1406 
FFFFFEF IGEF4O 01 : 0B Ove QTAB-271(R0) 
50 000000006 EF 19 t 0c MULL3 4#25,QTAB_OFFSET,RO : 1407 
gg FFFFFEFZG fF Oe BsObe NOs RO RIS 
6C 04 03007 CLRL CRI 2) 
000000006 EF  9F 03009 150$: PUSHAB CUR MAX_REC : 1411 
000000006 EF 1 FB O30DF CALLS #1,RUM_CEN 
C 0 DO 03066 VL O;Ri2 
000000006 FF 9F 03069 PUSHAB LOWMAX 
000000006 EF 1 §B 0 OEF CALLS #1,NUM LEN 
0 000000006 FF CO 030F6 ADDL2 EXTRA,R 
3 as GP Ripa? eg 
00Ov 15 3103 BLEG 58 
FFFFAAB7 FF 9F 03105 PUSHAB C.AKX 5 1415 
3 pd 03108 PUSHL #3 
000000006 EF 9F 100 PUSHAB PASSFV_OUTPUT 
000000006 EF 03 FB 0311 CALLS #3,PASSWRITE_STRING 
0000v 31 O311A BRW 169$ 
FFFFAAA3 EF 9F 119 152$: PUSHAB C.AKY : 1419 
03 DD 031 PUSHL # 
000000006 EF 9F 03125 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 031 CALLS #3,PASSWRITE_STRING 
00000000 ” pv H i 154$ BUSHAL } $s 1427 
000000006 EF Bt FB 1 : CALLS #1,CLEAR 
03 000000006: EF 00 oby g0 Ibe BBS #0 ULL CHOICE, +3 : 1429 
00v000000006 EF 5 EO 0314D BBS #0,FULL_PROMPT,157$ : 1433 
03 00000000G_ EF a o it 133 BBS ‘ gfEMPLFULL PROMPT. .+3 
000000006 FF F 03160 157$: PUSHAB SHIFT 5 1437 
Vy pp 166 PUSHL #4 
000000006 Ff F 031 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB 031 E CALLS #3,PASSWRITE_STRING 
rerane op Bb ange Gh 
000000006 ai P 170 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 031 CALLS #3,PASSWRITE_STRING 
000000006 Ff ar A PUSHAB ANSI_R VERSE 
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000000006 Fe 9F 031 2 PUSHAB PASSE OUTPUT 
000000006 EF 3 §B O31 CALLS #3,PASSWRITE_STRING 
FFFFAA29 FF OF O319F PUSHAB t ath 
A po 1A PUSHL #26 
000000006 a F O31A PUSHAB PASSE OUTPUT 
000000006 EF 3 FB O31AD CALLS PASSURITE. STRING 
000000006 FF 9F 031B4 PUSHAB Angst SET 
4 pp 1BA PUSHL 
000000006 FF F 031B PUSHAB otssry OUTPUT 
000000006 EF ieee ; fe 1¢ CALLS #3, jPASSURITE _STRING 
55 pp 1CF PUSHL al 
000000006 ai F 03101 PUSHAB PASSE ouTP 
000000006 EF 3 FB 03107 CALLS 3 -PASSURITE, _STRING 
000000006 cf 9F 031DE PUSHAB tate s 
6 DD 03164 PUSHL 
000000006 FF OF 03166 PUSHAB PASSE OUTPUT 
000000006 EF 3 FB OIE CALLS #3,PASSWRITE_STRING 
FFFFASF1 ef OF O31F PUSHAB 4 et 
A 0D O31F PUSHL # 
000000006 FF oF O31FB PUSHAB PASSE OUTPUT 
000000006 EF 3 FB p 01 CALLS 5 -PASSURITE _STRING 
000000006 EF  9F 03208 PUSHAB CALFAS 
06 DD 03 OF PUSHL 
000000006 EF 9F 0321 PUSHAB PASS OUTPUT 
000000006 EF 03 FB 03216 CALLS #3,PASSWRITE_STRING 
FFFFAAO3 i OF 1p PUSHAB t 5 Pa 
B 0d0 PUSHL #59 
000000006 FF OF 5 PUSHAB PASSFV_O 
000000006 EF 3 FB CALLS 3. PASSURITE, _STRING 
000000006 EF PUSHAB  ¢ RLF_S 
000000006 EF 9F A PUSHAB PASS$FV_OUTP 
000000006 EF 03 FB 6 40 CALLS #3 SASSORITE. _STRING 
FFFFAA1S ai 9F 03247 PUSHAB C.ALD 
3 DD 03240 PUSHL #51 
000000006 FF OF ' 4F PUSHAB PASS$FV_OUTPUT 
000000006 _ EF 3 FB 03255 CALLS #3, PASSURITE _STRING 
000000006 EF 9F 0 3¢ PUSHAB CRLF_S 
06 DD 0326 PUSHL # 
000000006 ai OF 03264 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB $A CALLS 4&3 PASSURITE _STRING 
FFFFAAIF cf OF 1 PUSHAB C.ALE 
3 bb 77 PUSHL #51 
000000006 ai F 03279 PUSHAB PASSFV_0 
000000006 EF seiaiaaal 3 FB 7F CALLS #3, 5 PASSURLTE. STRING 
56 pp ¢ PUSHL 
000000006 ai F E PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB CALLS #3 PASSORITE _STRING 
FFFFAA29 gf 9F 03298 PUSHAB C.ALF 
000000006 FE oP i PUSHAB 1 ee 
000000006 EF 3 FB O32A CALLS #3, PASSURITE, _STRING 
000000006 EF 9F 03280 PUSHAB CRLF _SHIFT 
6 bb B PUSHL 
000000006 EF 9F 0328 PUSHAB PASSFV_OUTPUT 
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Ba -800 6 d Cod Hats He SES Tt 1°2¢ 
000000006 EF 03 FB Bf CALLS #3,PASS$WRITE_STRING 
FFFFAA2F ef 9F O30C PUSHAB (C.ALG 
C pp a} PUSHL #6 
000000006 FF F CD PUSHAB PASSFV_O 
000000006 EF serene 3 fe Ds CALLS #3, 5 PARSYRLTE, STRING 
56 pp E PUSHL fe 
000000006 FF F O30E PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB O32E CALLS #3,PASSWRITE_STRING 
FFFFAAG1 Ff OF O32EF PUSHAB ( gALH 
4 pp FS PUSHL 
000000006 FF F O32F PUSHAB i ouTP 
000000006 EF sient 3 fe FD CALLS. a PASSURLTE, _STRING 
56 dD OA PUSHL 
000000006 ai OF PUSHAB PASSrY ouTP 
000000006 EF 3 §B 0331 CALLS A OR SSuI TE. _STRING 
FFFFAAGB i 9F 0331 PUSHAB t Ph 
8 pp 1F PUSHL #56 
000000006 FF F 1 PUSHAB PASStY OUTPU 
000000006 EF 3 FB 7 CALLS 3 -PASSURITE. _STRING 
000000006 EF 9F E PUSHAB eae SHIFT 
6 oD 4 PUSHL @# 
000000006 EF 9F 6 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 0 g CALLS #3,PASSWRITE_STRING 
FFEFFAAS9 EF OF 0334 PUSHAB (.ALJ 
C DD 03349 PUSHL #60 
000000006 FF OF 03348 PUSHAB PASSFY 0 
000000006 EF 3 FB 03351 CALLS 3 -PASSURLTE, _STRING 
000000006 EF 9F 03358 PUSHAB tacks 
6 oD 3 PUSHL 
000000006 EF 9F PUSHAB PAS$FV_OUTPUT 
000000006 EF eenepin : fe 6 CALLS #5 ,PASSURITE. STRING 
BA DD 3 PUSHL #58 
000000006 EF 9F 0337 PUSHAB PASTY .0 
000000006 EF 03 FB 0337 CALLS 5 -PASSURITE. _STRING 
000000006 FF i 8 PUSHAB He SHIFT 
000000006 ai OF O338A PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB 20 CALLS #3,PASSWRITE_STRING 
FFEFFAA7D EF 9F 0339 PUSHAB CALL 
9 pb 9D PUSHL #41 
000000006 FF F 0339F PUSHAB PASSFV_OUTPUT 
000000006 _ EF sailed ; Fe a3 CALLS, a3, PASSURITE _STRING 
Bh Rams puaiie at 
000000006 EF 9F PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB A CALLS #3,PASSWRITE STRING 
000000006 EF 9F cy PUSHAB PASSFV_OUTPUT 
000000006 EF 1 re ¢ CALLS #1, PASSWRITELN2 
Ov 1 ¢ BRB 159$ 
000000006 FF 9F 03300 158$: PUSHAB SHIFT 5 1474 
4 po D PUSHL #4 
000000006 EF 9F 033D PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB DF CALLS #3 PASSURI TE _STRING 
FFFFAASB EF 9F O33E PUSHAB (C.ALM 
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ED! 
age 223 v0 
( 
1 Pascal EEDF<SRCIEDFASK.PAS;1" fs 
Stats OSES gttcd tattle 
NRE aH MEE 
- 38 PUT 
PUSHL 4 S$FV_OUT STRING 
e HAB WRITE. 
Generated Cod ~ pp i CALL SS #3 PASSURI 
REAR soooocone ¢2 EP Rais Sia ORT Te STRING 
EF 00G E—F 9F 4 oie of PASSWRITE_ 
OOeETTS access o 80 ke ; CALLS, iu 
weedh tan: t |’ an oe pur 
0000 ¢ OP Beene PUSHAB PASSFV_OUT TE STRING 
000000006 EF FFFFAAS9 gf pp £18 aise er geaeSunt Tee Ve : 1487 
Bae Bh ht Chere” Ph PASSUnETE 
000000006 65 FB 424 CALLS § 162$ 1 
oF 1 PROMPT T,.¢3 3 149 
000000006 EF An ‘ £B OS4eA 1598: BRU a8 Fun =FULL PROMP 
EF OOTY 2k Beck lane: BBS woss 
senate. F o fO rH PUSHAB SHIFT 
E 1 $: TPUT 
000006 v 5 7 162 SHL FV_OU ING 
ve enc HE a Heart 
L 
G Pe heees USHAB 
000000006 03 ee a3¢ PUSH He 
000000006 EF FFFFAAZE 6 pp rhe CALLS ANSI RE RSE™ 
weet 2:4 ' PUSH a Y OUTPUT sine 
er ° Obs bees PUSHAB #3: PASSURITE. STRI 
TOOTS a nccnse 04 BF 08479 oe a St 
00006 fF fe bere ore TPUT 
coon it File Hilly ae 
TTS © persue te OP ibe BUSHAB ANS RESET 
sonsoons fe HES Bite SIS ST sean 
ETEeS Te scccssees fr BD O54) CALLS” SP 
000006 fF FB 03409 PUSHAS UTPUT 
000 Bn BS rt puaata Oe SAS Te STRING ; 1502 
0G EF 0006 Fe D 0348 PUSH #3,PASSW PUT ‘ 
0000000 00000 ¢ BO ete cients Ereloueey N2 
OG FFF O%4B CALS. #1 PASSUNI TEL 
0000000 03 fe ac giehe | ohe5 
000000006 EF wenneuer: } DD iD; st SOUTPUT_NAME 
000000006 EF 000000F ¢ 7 ee 4A PUSH st : 1504 
F OOF es DEST 
000000006 Op DD pee PUSHAB porate : 1308 
F 034E6 CALL FDL _DE WRITE2 5 3 
000000006 fF F ars yy eh bay =PRIMARIE 
oF S 
womens «ome HTN Hatt CREEL ose 
G EF oF 16 
SE a ee 
00000000G_ EF ov 
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000000006 
000000006 


000000006 


000000006 sc 


000000006 fF 
0 
10 
OOVFFFFAA2ZA EF 


000000006 
00000000G_ EF 


000000006 


000000006 _ EF 
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51 000000106 Fr 
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000000006 
000000006 
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000000006 
000000006 
000000006 
000000006 
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000000006 
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FFFFA ; 
000000006 


000000006 


000000006 
000000006 
00000006 
00000006 
FFFFASFS 
000000006 
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igosen-1984 00:56:05 yARedt as 724 


16 1638: tg mr 
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got EEO Ee SRCIEDFASK.PAS: 1 (8%) 
3 1514 


PUSHAB C,ALQ 


2 
PASSFV_OUTPUT 
#3,PASSWRITE STRING 
PASSFV_OUTPUT 

#1 ,PASSWRITELN2 
SHIFT 
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AMNO> OND VWI OO 
o 
cP 
wr 
=r 
a 


: 1522 


ry 

PASSFV_OUTPUT 

#3, PASSWRITE_STRING 
C.ALR 


3 
PASSFV_OUTPUT 
#3,PASSWRITE_STRING 
DEF AULT_PRIMARY ,RO 
PRIMARY-WIDTHCROJ,-(SP) 
MOV ZBL DEFAULT" PRIMARY ,-(SP) 


A 
PASSFV_OUTPUT 
#4,PASSWRITE_ENUMERATED 
DEFAULT PRIMARY .RO : 


1678 
RO.C.ALT, 1678 


OODOD NIN NIA AO 


1525 


: 1527 
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PASSFV_OUTPUT 

#3, PASSWRITE_CHAR 
DEFAULT PRINOM 
#1) .NUK_CEN 
DEFAULT_PRINUM 
PASSFV_OUTPUT 


#3, PASSWRITE_INTEGER 
C. ALU 


a 
PASSFV_OUTPUT 
#2 ,CASSURITE STRING 
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TOE 800 Generated Code ~3007 138% 99:36:93 tee a 
Booooo1eg EF by pposA os: rok «POAT Ae at tam ‘18 
" ggteoas 2" | Hee Hrang 0 
+e ae a ATA+20, IDATA#16,R1 
5 aooooros gr SHESIEE FB c ey 
~ Hn BLE ees 
04 O004A 8S: _— RET 
; Routine Size: 75 bytes, Routine Base: SCODE + 07FC1 ra 
| 0004 het 
; ),LOW_LIMIT 
20 Ss Be OB MOVE B5ini2) AEGR LIAL ie 
Sms. asguplte FE RY Bans Rt, RASH : 1666 
” 5 é ; CVTLF 
1 ; DIVES #*F12.0,R1, TEMP_REAL ie 
: Ee c TEMP_REAL, [DATAT24 ; 
meen Gogooarse EF gongogane EF 4h CVF, TEMPSAGAL,FOATATZG : 1662 
— Repemetne lt Fue: b $a EMU #O,MOART RT 
3 i ° £4 EDIV #12,Ri RVR 
™ " ’ 1 D D TSTL ORI 
ov 1 ; i a 
51 ¢ 1 aDbL2 #12, 
ie i * 
Ov | 
commons FREE og, te JIS mh 
af Mee eeiee EF f 1 wits R1, [DATA*20, IDATA+16 Pisses 
000000106 EF 00000014G EF 31 i gat? fara i 
146 EF D7 : 
SHI RA sR oan 
resetog 3s: te - 1 
09 4g EF Bt ee Gor inate é : 1701 
§ 209106 ie. , MP DATA+20,LOW_LIMIT 
: wh i t st ass $ , ; 1708 
0000 . ATA+16,HIGH_LIMIT 
F semen tt if auee iis 4 ; 1710 
50 tittttees Ef 4 a 188: CMPL DATASSO,LOW.LIMIT 
Me 19 O00 PLSe TA+16,HIGH_LIMIT 
000000106 EF D1 CMPL —«IDATA#16, HIGH. 
a wooooree 2H Sat Fa caote teeta Lam 
coonmnns gr ooooanes #2” | St reste tw, 72 
006 EF 000000106 EF ¢ IDATA*16. TEMP, im 
cS soe EF o § suet I ATAs 16, TEMP_INT2 RO : 
” ¢ E eoeneeres aa RDEL3 | AOSIDATASI Pies 
. 62 000F6 17%: Art 
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ALT_SOURCE: : 1780 
00F <WORD “M<R2,R3,R4,R5,R6,R7> 
SUBL #20 6 
MOVE (R12) ,08J_TYP 
MOVE a8 (Ri PRIM 
D MOVL a@12(R125,PRIMNUM 
1 MOVE @16(R12).SECO 
1 MOVL § @20(R12) .SECONUM 
1 MOVE  @24(R12).AN_FLAG 
D CMP QTAB_OF FSET. #46 3 179% 
4 BNE $ 
6 CLRB  GLOBAL_SET : 17 
E C 2%: BBS r -VISTBLE QUESTION, 4$ + 180 
E 4 BBS #0. OPTIMIZING 6s 
p ¢ 48: CMPL § QTAB_OFFSET,#256 
BGEQU 5$ 
9 BBS QTAB_OFFSET,C.ALV.6$ 
33 5$: mOVB #1, ACT_SOURCE : 1812 
1 8 BRW 32§ 
59 058 68: BBS #0, OPTIMIZING, .+3 : 1816 
0 BRW 32§ 
&9 0066 BLBC = AN_FLAG, 9$ : 1823 
Fe CALLS #0-POINT_AT_ANALYSIS + 1825 
p 0 9S: VL SE CONUM,=4<FP) + 1827 
F 00074 PUSHAB =4(FP) 
90 00077 VB SECO, -8 (FP) 
9F 00078 PUSHAB -8(FP) 
po 07 VL PRIMNUM,-12(FP) 
F PUSHAB =12(FP) 
90 vB PRIM -16(FP) 
OF 9 PUSHAB -16(FP) 
90 OVB ; TYP,-20(FP) 
OF PUSHAB -20T 
FB CALLS #5,FIND_OBJECT 
A BLES R0..+3 
1 BRW 24$ 
4 OOOA CLRB = ALT_SOURCE ; 1831 
CF OOOA CASEL QTAB_OFFSET,#11,#53 + 1833 
A -DISPL 11$ 
C <DISPL 11$ 
A “DISPL 11 
: *DISPL 1 
*DISPL 1 
*DISPL 1 
6 <DISPL 13$ 
5 <DISPL 135 
BA -DISPL 18$ 
BC SDISPL 18$ 
: *DISPL 1 
“DISPL 1 
*DISPL 1 
“DISPL 1 
*DISPL 1 
*DISPL 1 
DOOCA *DISPL 1 
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0000v 31 001A1 BRW 30$ 
es a a ram ay Aon 
sonnoocer§ A2 0 188 MOVL BEF Ab uRR IDATALROJ 
G FF D 186 MOVL TAB i ET,RO : 1880 
000000006 | GEF4O 00 O01C MOVL IDATA RO], INPUT VALUE 
1. G €F OD Ick MOVL ER,R : 1881 
00000000GEF 4 oe p 103 MOVL jnpur WYALUES SEGMENT_POSITIONCROJ 
. " EE DO OOIE «MOVE DEFCTORREWT 7 
sotooocer§ Ae D if8 MOVL Bee RSS IDATACROJ 
6 ; D 8 MOVL aT Phos . : 1890 
000000006 H GEF4O OD 9 MOVL  IDATACRO}, INPUT_VALUE 
i G EF OD F MOVL § SEGMENT_NUMBER,RO : 1891 
00000000GEF 4 ow p }3 MOVL jNeUT VALUE , SEGMENT_LENGTHCROJ 
5 = EF 06 4 178: mOvL aTAB OFFSET, T.RO : 1899 
000000006EF.4 of, A2 My 3 MOVL Band) TDATALRO3 
9090 0006 FF D : MOVL FSET : 1900 
000000006 : 800 O000GEF 40 4 MOVL ae RO t TAPUT _ VALUE 
000000006 EF ae 4F OVE #1,GL : 1901 
5 00000006 EF Dd 38 18$:  MOVL TAB OFFSET,R : 1913 
; 00000006 EF 0D F MOVL (Ray AT R 
FFFFFFFOGEFS 23. A2 9 66 MOVB (R2) ,BDATA-7CRO] 
ee ee aor — 
000000806 EF é bo i MOVL a inpcy “VALUE : 1917 
000000006 EF 04 00284 208:  CLRL NPUT_VALUE : 1921 
BY 1 88 ong, BRE 
5 1 90 E $e: MOVB HI »ALT_SOURCE : 1940 
00v000000006 EF 0 €1 00291 BBC 0; AUTO_ TUNE, 27$ + 1946 
00000100  &8F 000000006 FF BI 99 CPL arb. OFFSET, #256 
OOVFFFFA613 EF 00000000G EF ef A ¢ QTAB_OFFSET,C.ALW,27$ 
S Bie RF me 
5 DD BG PUSHL ‘ 
5g ce CSO’ OOPS ee ERTS #4 iBSSTOP 
titties Gt 000000006 FF of s 27$: CML aris _OF FSET #256 : 1955 
OOVFFFFA607 EF 000000006 i | D BBC arse OFFSET,C.ALX, 30S 
50 000000006 ef 66 e) move arg OFFSET RO : ieee 
000000006 EF roaree at pe £ $: CALLS at RO} EFINITION ' 1967 
0 0 rs 38: ROVE Atte SOURTE Ao : 1971 
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EDFASK -Sep-1 VAX-11 Pascal V 230 E 
FO4n000 Generated Code 1B-sep-1984 9038 es Na edcake ta Pete a caepeask.pas:1 280) V 
7 79 .DISPL 1 
7 18 “DISPL 1 
Q v ip Bt Spe 4$ 
-DISPL 120 | 
v “DISPL 1 
Vv 1 BRW 288$ 
4 8 1$: CLRB. OR : 2034 
$1 000000006 EF 1 g3 A MULL3 4#25,QTAB_OFFSET,R1 
1 FEFFFEF2GEF41 F 2 MOVAB QTAB-27 cRII,R1 
00000100 &F 1 p A CMPL (RI) Ae 
Ov F aj BGEGU 3$ 
OOVFFFFAS61 EF A BBC (R1),C. ALY, 3$ 
Ps, RB 
000000846 EF OD AF TSTL DATA+132 
v 13 0008 BEQL 4 
, ri BH ss, HE Hh 
00v 52 ««£€9 000BC Ct BLBC -R2.7$ 
61 0 B60 O0Br MOVL #5.(R1) : 2041 
0000v 31 Oce 7$: BRW 285$ 
00000014G EF D5 000C5 8$: TSTL  IDATA+20 : 2046 
Gov if 00¢B BNEG  10$ 
000000006 EF 000186A0  8F p 00CD MOVL #100000, DEF : 2048 
0000v 31 00008 BRW 2598 
000000006 EF 000000146 EF 3 5 000DB 10$:  MULL3 #50, IDATA+20,DEF : 2052 
0000v §3 G00eY BRW 289$ 
000000E46 FF D3 OOEA 12% TSTL IDATA+228 : 2061 
OOOOO0ESG EF FF SF 08 ihe BB ite Ooty be se #*XFF, IDATA+228 
00v 18 OOOFC BGEQ 1% : , 
000000006 EF FF er 9A OOF 14$: NOVZBL #235, »MAX_KEY_SIZE : 2067 
00000006 EF O00000E4G EF 00 0108 15$: MOVL_ IDATA+228,MAX KEY Size : 2071 
srrereraceriy iti EF be § O11 ome nove Pe GFESET.RT QTAB-262(R1) : owe 
50 9006 EF % cs 91 6 MULL #25 O1Ke OFFSET RO : 2074 
FEFFFFI3GEF4O 9006 EF 04 : 1 MOVC3 ff EY SIZE. QTAB-237(RO] 
50 000000006 _ EF 19 4 MUL 92 OIKD OFFSET.RO : 2075 
FFFFFFOBGEF4O 000000006 EF =f 14 move #4 MAX “KEY _SIZE.QTAB-245CROJ 
50 6088888 f 09 it we Ue oftis iA ae RO : 3082 
GEF4O 04 001 CLRL : 
03 000000336 ve 0 59 185 BBS MDATASSI.. 3 : 2086 
02 000000F 86 D1 179 CMPL  IDATA+248,#2 
oothy 14 S01 BETA a8, 
F 3} 13? PUSHAB At : 2092 
oon | ee 
000000 4G F : 1 3 PUSHAB IDATA+132 
F 9F 001 F PUSHAB #4 
{ F 9F 001 PUSHAB #1 
8103 CF 6 FB 001 CALLS #6,ALT_SOURCE 
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$e 
mm 
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56 1 MOVE RO,RESULT 
0060 i 130 21$ eres £008 ess 101 
50 900000006 EF DO OO1A1 MOVL TAB OFFSET RO : $102 
0000000GEF D4 OO1A8 CLRL —«IDATALRO 
03 000000336 EF 008 : 59 lat BBS #0, VDATA+51,.43 : 2104 
02 000000F 86 f D1 1BA CPL IDATA+248,#2 
0000v 3 i¢ BRW 389s 
1 BF 9F 001C PUSHAB #1 : 2110 
00000000 =«&F pF 1¢ PUSHAL 
F 9F OOICF USHAB #12 
000000846 EF 9F 1b¢ PUSHAB IDATA+132 
‘ot fe 1 PUSHAB #4 
1 8F 9F 0010B PUSHAB #1 
8103 cr : FB 106 CALLS #6,ALT_SOURCE 
0000v 3 166 BRW 
C 94 OO1E9 258 CLRB -—s«~ PRE_ PROCESS : 2119 
50 000000006 EF 00 OIE MOVL TAS OFFSET .RO : 2120 
OOO00000GEF4O D4 OO1F CLRL =‘ IDATALRO} 
03 000000336 EF ai £0 Ors BBS #0, VDATA+51,.43 : 2122 
02 000000F8G EF 01 00204 CMPL = IDATA+248,#2 
3 14 00208 BGTR . +3 
0000v 31 0200 BRW 389s 
01 8F 9F 00 19 PUSHAB #1 : 2128 
00000000 BF DF 0021 PUSHAL #0 
12 8F  9F 00219 PUSHAB #18 
000000846 EF 9F 0021C SHAB  IDATA+132 
04 8F  9F 00 PUSHAB #4 
01 8F 9F 00 PUSHAB #1 
8103 CF 6 EB 0 CALLS #6,ALT_SOURCE 
56 0 3 0220 MOVE = RO.RESOLT 
0000v 31 00 9 BRW 
00v00000013G EF 00 E1 00233 29$: BBC #0, BDATA+19, 34$ : 2140 
0 D4 00238 CLRL ‘TEMP_KEY_SIZE > 2144 
21 D4 0023D CLRL RI > 2146 
000000006 EF 1 D0 O23F 31$:  MOVL  R1,TEMP INT 
000000006 FF DO 00246 MOVL §_TEMP_INT2,R : 2150 
00v00000000GEF 4 0 €1 0 4D BBC #0, SEGMENT WANTEDCR2),33$ 
900000006 EF D 36 MOVL TEMP_INT2 : 2152 
0000000GEF ¢ C 9 ADDL2 SEGMENT LENGTHCR2], TEMP_KEY_SIZE 
D6 oF f 6 33$: AOBLEQ #7,R1,37 
50 00D8G EF D 4$:  MOVL IDATA+216, TEMP_KEY_SIZE : 2161 
sists ak: hiking tees He 
000000006 EF 000000006 EF 0 ¢ 7A SUBL3 TEMP_KEY. SIZE ,CUR_MAX_REC,MAX_KEY_POSITION > 2165 
000000006 EF O00000E4G EF $3 C Bs 7$:  SUBL3. _ TEMP_KEY_SIZE, IDATA*228,MAX_KEY_POSITION ; 3169 
0 900 0G EF 19 8$:  MULL3 #25, QTABTOFFSET,RO : 21 
FFF FFEFAGEF4 00G EF 04 : 4 MOVES | a4 JAAX_KEY_POSIfION,QTAB-262CRO} em 
000000896 EE F AC PUSHAB SEGMENT NUMBER 
6 8 OF PUSHAB #12 
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eon TES ou. erect a 
000000846 Bou DS 88s TDAtAris6 : : 2190 
00v000000126 EF ag tt ¥ es RG Fe r pose oti 
SC 00 by 3 €7 43$: BOVL Brae oer SET ARO . 3 
00000006 FF 0 OOCEA 438: CURB PRE PROCESS : 220 
zo ° C90 003F9 sku PROCESS ; 2207 
FFFFFFFOGEF 0 * 1 FB 5$: CLRB ae 
mot. 96 QOSEE 458: ry, «AsaTactse : 2209 
Ov 1 $: TSTL $ 
000000866 EF 13 0509 PUSHAB 40 
00 : 44 030€ PUSHAB Tharact32 
er EF CS 0314 SHAB I 
cooogie gr Sts? PUSAB Le 
ni ee: BIN PtE Bi 
0328 we, OSE "pnacess ; 
8103 CF 50 i 0328 me Dr aa oreees Ro 
5¢ OOPOY 8] BReSe cos: MOVE QTAB OFFSET ; 2225 
50 000000006 f 89 6 shoe 3 35. OFFSET,RO 
F4 #25 , 
ree S000 eS 0 i se OTAs- 2700800 AO ; 2227 
0 TSTL 
50 000000006 A ooooubeee. EF 05 9 24 BNEG 538 3331 
v 0359 RB 54$ . 
By rf : 28 3$: MOVE #}.¢RO) 
1; Rite: eA 
60 FOF 3 et PUSHAL #124 
00 f F PUSKAB IDATA*132 
oocooon? i ? PUSHAB Bt 
084G_ EF HAB #1 E 
mene i CALLS ALT SOURCE : 2240 
F e $0 , BRY 2 33 R KEYS set 488 RE_PROCESS 
3 6 E 10N,PRE _ > 2254 
810 gf 00 td " 55$: atone R gy !STBLE_dues $s2¢ 
000000006 5 A BRW MIZING,58$ 
5¢ 000000006 éF HB’ 61 80898 ses: sf 
00v00000000G_ ‘EF 91 : : i3 sy 3 15 
00000000 BF pF O03, 
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984 19:35:39 DISkSVmSMASTER:EEDF<SRCJEDFASK.PAS:1 (90) > 


PUSHAL 
Pp 


# 
# 
# 
#6,ALT_SOURCE 
RO ,PRE_ PROCESS 
patactse : 2260 


#0, VDATA+23,61$ 
#1 ,PRE_PROCESS 


6 
PRE_PROCESS 
£O9s ROCESS 27 
QTAB_OFFSET,RO : $7 
Tart) 
+51, 68$ : 2275 
+268,82 


8$ 
IDATA+220 #33 


#0 : 2283 


,ALT_SOURCE 
RO, PRE PROCESS 


PRE_ PROCESS 229 
QTAB_OFFSET,RO 3: 229 
BDATA-7(ROJ 

1,.+3 3: 2295 


#0, VDATA+ 
IDATA*248 #2 


389s 
IDATA+220,.#35 


389s 
IDATA+132 
58 $ 

rT] ; 2305 
#123 

IDATA+132 

#11 

#1 

#6, ALT_SOURCE 

RG PREPROCESS 

PRE_ PROCESS : 3316 


QT FFSET.R 15 
BDATROPER J . 
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Nn 9 
EDFASK 16-Sep-1984 00:56:05 | VAX=11 Pascal V2.4-277 
Oe 000 Generated Code ae 99:38:93 TT KSUNGHASTER FEDF -SRCJEDFASK.PAS:1° t8n)- 
00v00000033G EF 00 €1 00497 BBC #0, VDATA+51,79$ : 2317 
65 000000F 86 FF D1 49r CHL JpATA+248, #2 do 
21 000000DCG EF of 4A CMPL JDATA*220,#33 
Ya Bile a" 2325 
onooodg) BF Br Obuee | PURHAL 9 7 
000000846 EF 9F 0048 PUSHAB IDATA+132 
B &8F 9F 004C PUSHAB #11 
1 BF 9F 004C PUSHAB # 
8103 ct mS fe 4C CALLS #6,ALT_SOURCE 
C ace OVB RO.PREPROCESS 
0000v 31 00401 79$:  BRW 289$ 
5C 94 00404 80$:  CLRB PRE PROCESS : 2334 
0000006 ¢6 EF D4 0406 CLRL  —« IDATA+236 + 2335 
1 8F 9F 0040C PUSH + 2337 
00000000 er pF O4DF PUSHAL 
11 8F 9F O04E5 PUSHAB #17 
000000846 cr OF 004E8 PUSHAB IDATA+132 
04 &8F 9F OO4EE PUSHAB #4 
01 8F 9F O04F1 PUSHAB #1 
8103 CF 6 FB 0044 CALLS #6,ALT_SOURCE 
56 0 30 Oo4r9 MOVE  RO,RESOLT 
0090v 1 O04FC BRW 289$ 
50 D4 OO4FF 81$ CLRL oR : 2346 
000000006 EF 50 DO 00501 82$ MOVL RO, TEMP_INT2 
1000000006 EF D0 00508 MOVL _—* TEMP_INT2,R1 : 2350 
OOOO000GEF41 94 0050F CLRB § SEGMENT_WANTEDC(R1) 
51 000000006 EF 00 00516 MOVL =‘ TEMP_INT2,R1 : 2351 
QOOOO000GEF41 04 00510 CLRL § SEGMENT_POSITIONCR1] 
51 900000006 EF DO 00524 MOVL §_TEMP_IN : 2352 
OOO0000GEF41 04 005 8 CLRL SEGMENT_LENGTHCR1) 
CB 5 07 F3 005 AOBLEQ 
50 000000006 EF 00 00536 OVL QTAB_OFFSET,RO : 2356 
FFFFFFF9GEF4O 94 0053D CLRB BDATA~ZER J 
21 000000DCG EF D1 00544 CMPL =‘ IDATA*220,4#33 : 2358 
3 12 0548 BNE +3 
0000v 0540 BRW 389s 
5¢ 94 00550 CLRB = PRE_PROCESS : 2360 
0006v 1 0582 BRW 
- 00v000000006 EF £1 00555 85$: BBC #0, OPTIMIZING, 90$ > 2375 
000000 : F DF 50 PUSHAL # : 2379 
F 9F 0056 PUSHAB #85 
00000000 = 8F pF 64 PUSHAL # 
08 8F 9F 0056C PUSHAB # 
01 «BF OF 6F PUSHAB # 
000000006 FF 5 FB 2 CALLS 5 «F IND_OBJECT 
Ov 0 € 7 BLBC 88S 
000000006 EF 1 be i MOVE #) INPUT VALUE : 2381 
000000006 Ef 4 00 gs: CLRL —«sINPUT_VALUE : 2385 
C 9% 6B 89$:  CLRB PRE PROCESS > 2387 
0000v 31 0$:  BRW 
¢ &% 1$ CLRB_—«sPRE_PROCESS F : 97 
00 F 9F 0059 PUSHAB # : 2398 
00000000 8F oF 0059 PUSHAL # 


<m 


10 
OL A800 Generated Code iG-Fen-1984 99:38:93 PE KSUNGMASTERY EDF -SRCJEDFASK.PAS; 1 Sen) 


5 8F 9F 00598 PUSHAB #85 
000000 F DF 0059 PUSHAL # 
A Pa 
8103 ct EB AA CALLS #6,ALT_SOURCE 
& ? AF MOVE ESOLT 
0000v Be BRW 289 
000000846 FF : B3 92$: Ist JDATA+132 : 2410 
50 000000006 EF »D BD MOVL  § QTAB_OFFSET,RO 
OOVFFFFFFFSGEFS 0 F C4 BBS #0, VBATA-110R0],95$ 
SC 1 CD 94$:  MOVB #1.PRE_PROCESS 
Ov at bos 95$ eres ge PROCESS K 
00v000000006 EF § E1 abe 96$: BBC #0, OPTIMIZING, 101$ 5 2416 
000000006 ‘EF 0 FB 005d CALLS #0.POINT_AT_ANALYSIS + 2420 
we oe ie PUSHAB #13 _— 
00000000 8F ODF 005E PUSHAL # 
a Br Gostg PUSH 
000000006 FF 05 FB 05F8 CALLS #5,FIND_OBJECT 
Ov 0 £9 005FF BLBC RO, 99$ 
50 000000006 EF 00 00602 MOVL Def CURRENT RO + 2624 
000000006 EF 27, AO 00 00609 MOVL (RO) ,OLD_COUNT 
00v 11 00611 BRB 100$ 
000000006 FF D4 00613 99$: CLRL = OLD_COUNT : 34 8 
900000006 EF 0 FB 00619 100$: CALLS #0,POINT_AT_DEFINITION + 2430 
50 000000006 _ EF 19 ¢5 00620 MULL § QTAB-OFFSET,RO + 2432 
FFEFFFEF 1GEF4O 01 90 00628 MOVB. #1,QTAB-271CRO) 
G EF MULL3 #25,QTAB_OFFSET.R : 26 
50 00000000 19 ¢5 00630 25 0 33 
FFFFFEF2GEF40 000000006 EF 04 : 00638 move a 6LD_COUNT ,QTAB-270(R0) 
50 000000006 _ EF 19 C5 00647 101$:  MULL3 oe QTAB_OFFSET,RO + 2439 
FFFFFEF 1GEF40 3 064F CLRB  QTAB-271CRO) 
ODD000COG cr” BS bones Iose; Ree Tpataet92 2449 
Sov 15 0065F BLEG 08$ ‘ 
QO0000E0G EF 05 00661 TSTL IDATA+224 
v 13 00667 BEQL 108$ 
000000846 FF 05 00669 TSTL IDATA+132 
Ov 1 66F BEQL 7 
00v0000000¢6 EF 0 f 1 BBS #0, VDATA+12, 108$ 
C 1 79 107$: MOVB #1,PRE_PROCESS 
Ov 1 7¢ BRB 0$$ 
¢ 94 67E 108$:  CLRB pRE PROCESS 
0000v 31 109$: BRW 89$ 
000000846 EF 0D 110$:  TSTL IDATA*132 : 2467 
v1 BEQL 12$ 
00v000000176 EF ; BBS #0, VDATAS23 113$ 
C 1 1128: MOVB #1.PRE_PROCESS 
0000v 31 0069 BRW 289$ 
4 113$:  CLRB PRE PROCESS 
0000v 31 006 BRW 
000000C06 f f oie 115$ Ist ATA#+192 : 2477 
000000846 EF oD Ab TSTL IDATA#+132 > 2479 


10 
EDF ASK ig-Se -1984 256: VAX-11 Pascal V2.4-277 P EDF 
Oa -800 Generated Code ~36071382 99:38:93 DLSKSVMSMASTER  FEDF SRCJEDFASK.PAS: 1° 780)~ > 04 
00v 1 AC BEQL 118 
59 000000006 EF 0» Ag MOVL  QTAB OFFSET RO 
OOVFFFFFFFSGEF4O 0 B BBS #0, VBATA=11CROJ,119$ | 
56 : : 118$: MOVE #) RESULT 
h Hae le Bi 
50 000000006 EF 0D C7 121$: MOVL QTAB_OFFSET,RO 3 2492 
o0000000cEF Zo b0 ¢ MOVL #2,I1BATALROS 
4 006D CLRB = RESULT : 2493 
HM 6 EF 60 b0eR --* Bbee | GTABCOFE SET. RO : $480 
000000006 FF Miiddinttceer ta 08 MOVL § IDATALROJ, INPUT_VALUE i 
C 36 ; GEE 124$: MOVE RESULT. PRE_PROCESS : 2501 
0000v 31 O6r BRW 2 
04 000001086 EF 01 006F4 1258:  CMPL IDATA+266 , #4 : 2509 
Ov ff 06FB BNEG 27$ 
5¢ oogby ‘ O6FD NOV 1 ,PRE_PROCESS : 2511 
C 95% 5705 127$: CLRB PRE PROCESS : 2517 
000000006 EF i 00 0705 MOVL #1 JNPUT VALUE + 2518 
0000v 31 70¢ BRW 289 
000000006 EF 7E_ 8F 9A OO70F 1298: MOVZBL #126,MAX_STRING_ANSWER_LENGTH : 2528 
eee} BR BRE RRM RUS OF gs #0 Bon 
03 000000006 EF 00 0 007 : BBS #0, OPTIMIZING, .+3 : 2531 
00 - ,Y ' $7 8 BUSH 598 2533 
00000000 F DF 007 g PUSHAL #0 : 
00000006 f OF 63 H PUSHAL +t 
08 8F OF rhe PUSHAB # 
01 «=8F OOF th PUSHAB #1 
8103 CF 6 FB 0748 CALLS #6,ALT_SOURCE 
C a 0 30 074p HOVE RO.PRE-PROCESS 
000000006 EF 7 oF A O783 132$: MOVZBL #126,MAX_STRING_ANSWER_LENGTH ; 2542 
0 000000006 ef 0 07 MOVL QTAB OFFSET,RO : 254 
FFFFFFFOGEF Q 4 0076 CLRB  =—« BDATA-7(RO] 
00v000000006_ EF 0 1 f BBC ‘ /OPTIMIZING, 134$ 3545 
0000000 F DF 00774 PUSHAL # , 
000000 f f 7 PUSHAL 5 
F BF 9F 007 SHAB #15 
0 BF 9F 007 PUSHAB # 
8103 cf FB 7 CALLS #6,ALT_SOURCE 
C 2 7 F MOVE RO. PRE-PROCESS 
0090v 1 1348: BRW 289$ 
000000006 EF t 4 135$: MOVL #32,MAX_STRING_ANSWER_LENGTH ; 355 sR 
0 000000006 FF B MOVL  QTAB OFF SE RO > 255 
FFFFFFFOGEF4O 7A CLRB = BDATA-7(RO) 
03 000000006 EF 0 0 7A BBS r) OPTIMIZING, .+3 : 2559 
oogov $1 Sore; BR 286 ae 
00000080 F DF 00787 PUSHAL @# ; 
F 96 0078D USHAB #-127 


Cr --s-sssssssnssnssss-nsssssssntssnsssntssnnnsnnnnnenannm - 7 = oy 
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~35p-1984 19:38:89 DT SkSmSMASTER:CEDr SRcJEDFASK.PaS; 1° ce) 
ted Code igs ~Sep-1984 
Generate Goes sence toca 
og") i reg pumas Ht 
FE 007e A T_SOURCE 
8103 ¢F 8 $0 ree hove ; gprecPRocess 
0000v ; eases: at TRING_ANSWER_LENGTH ; 2571 
000000006 ¢F 5 28 Bure? 1388: = ROVZBL CTAB OFFSET AO ; $89) 
0 poooonere on 8 CLRB © BDATA-7CROJ . 257% 
eeneer rene 3 OOvES BES #0, QPTINIZING, .+3 ; 
03 000000006 EF ooney 84 ie aw, 288 Acasa + 2576 
00 by i HA BRW 1 a : 2586 
oooooosas FF bs Gort t41s: TstL fp 
ev TSTL — IDATA*132 
000000846 FF D5 O0805 ist 
Y £5 00 BBS #0, VDATA#11,145$ 
oovoooooo0es EF 2 0 iF 1448: MOVE #1 PRE_PROCESS 
oot. 94 CORB 1458: CLS its E PROCESS "si 
0000v $1 0081) of ad 
50 900000006 EF o, 58 00898 moss Ai BUCKET. DEFAULT. QTAB-270(RO1 Fae 
FFFFFEF2GEF40 000000006 EF 06 28 0088 PUSHAL AF ied in eeeinel 
44 80 BO 008 OVE RO‘ BUCKET OVERHEAD mene 
Q00000006 EF rosie 20 BO 2084 rstL 1A 
Ov 06 o0asi MOV. _IDATA*228, ENTRY_SIZE 3 aon 
000000006 EF 000000646 fov ett th BRE 36S cs : 2617 
00v000000156 FF s00000006 i b4 00866 | CLL ENFRY.SIZE geet 
0 D4 0086C % ee 
0 00 O86 151$: MOVE RO, TEM : 2627 
restores i esse, OLE i pec TemeeiNTs eh WANTEDERI2,1538 soe 
ae ee ea pons, 5H 909000006 Ae aehs ADDL2. 5 erent ENGTHER1, ENTRY, SIZE 
pp Cooooo0s §F o00000 aa FS Q0808 1538: AoBLEO 5 oe 
ov 17 0089C 4 , 
: MOVL | IDATA216,ENTRY_SIZ : 3642 
ont ae 
$F cooomnos #2 EPR KARE BUEN GREEADMIER, suo : 2644 
1 RSE. FF eons SST ee BE ae 
DIVL 
00000 : 1 00. 8F C7 008C eke “OVERREAD. ENTRY_SIZE,R1 : 
900000006 000000006 800000006 : ot nit i OVERHEAD RI 
1 1 0 4 eS DIY (3-A1.R1 LR 
3 2} 1 00000200 8 ; E EDIV 
OY tS Boar ADDL2 ie RI 
51 00000200 $F OS onr§ ts7s: HST? a} 
Ov 4 RTL MIN BUCKET 
000000006 EF 0D 


Blo 


51 
FFFFFEF6GEFS1 
50 


50 FFFFFEF6GEF4O 


07 


51 
FFFFFEF6OGEF41 
FFFFFEFAGEF4 
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R1 
Fag-266CR11 


CROJ,RO 


aD 
= 
~- 


A+220 433,47 


DNAX UINE SOP} Or 
ARAARAARAR=AA—PM 


= B BS SS SS De® OO 
HPNANINMAAOOSOOOAOT WOO + 


zox= 


z 
=~ 
— 
= =z 
oo 
2x pe ot zx 


ATA+228 
IDATA*228,MAX_KEY_SIZE 
IDATA+228 ,MAX_KEY_SIZE 
495.01 AB OFFSET.R 
#4 ,MIN_KEY SIZE.QTAB-266(R1) 
#25 OTKB OFFSET.RO 
#4 MAK KEY_S1ZE,QTAB-262(R0] 
st NT_NUMBER 
IDATA+132 
4h 
#6. ALT SOURCE 
RO-RESOLT 
RESULT .PRE_PROCESS 
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Generated 
51 000000006 
62 FFFFFEFAGEF41 § 


88v 


000000006 gE 
eno 
00000000GeF 4 


00v00000033G_ EF 


8103 gf 


ip 
FFFFFEFOGEFS 
FFFFFEFAGEFED 


62 FFFFFEFAGEF4O 
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00000100 = &F 


Code 


FFFFFEFO6OGEF 
Vv 


me | 


000000846 | 
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F 
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Vv 
Vv 
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a Do De es es | 
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16 10 a | 
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175$: 


abe 19:38:40 


VAX-11 Pascal V 


MULL3 # OFFSET .R1 
MOV tH eh sgeeth) Rg 
CMPV m9 #32, QTAB-262(R1], (R2) 
ae 
Bi ¢B2 ROR RESULT 
BLBC RESULT 77$ 
CLRB PRE PROCESS 
MOVL (R23, INPUT_VALUE 
MOVL TAB‘ OFFSET, 
MOVL INPUT VALUE , IDATACR2J 
MOVL tat ER,R 
MOVL in VALUE, CP enENT _LENGTHER2) 
BRW 9 
TSTL DATA+132 
BEQL 
S #0, VDATA+51, 181$, 
PUSHAB # 
PUSHAL 
SHAB #-124 
PUSHAB IDATA+132 
SHAB #11 
PUS a 
CALLS ’ ,ALT_SOURCE 
MOVE *PRE~PROCESS 
BRW 3 
CLRB BRE PROCESS 
BRW $ 
PUSHAB # 
CALLS #1,SCAN_DEFINITION 
MULLS #25,QTAB OFFSET,RO 
MOVCS § #4,LOW KEY QTAB-266(RO) 
MULL #38.) QTAB_OFFSET,R 
MOVE H_REY oF Abe 62(R0) 
MULL me, aTAg OFFSET,R 
MOVAB 66[R0O) RE 
CMPV #0 a35° otapose CROJ, (R2) 
BEQL + 
BRW 2898, 
CLRB OCESS 
ROVL ‘R s° NBL “VALUE 
TSTL ATA+132 
BEQL 4 
BBS .VDATA*28, 1898 
PUSHAB 
PUSHAL @# 
SHAB #-119 
PUSHAL 
PUS #i2 
PUSHAB #1 
CALLS #6,ALT_SOURCE 
nove RO. PRE~PROCESS 
cLRB PRE PROCESS 
CMPL = IDATA*232,#256 
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16-Sep-1984 00:56: VAX-11 Pascal V2.4-277 Page 240 
Generated Code g-Sep-1984 FO 38 es enGARe REY Fete cacaeprasx pas: 1° 280) 
Ov 18 008 BGEQ 193 
000000006 EF 000000E86G fr i e3t OVL ATA+232, CUR_MAX_F IXED : 2835 
G EF FF «BF OA 1 193$:  MOVZBL #255,CUR_MAX_FIXED : 2839 
50 690090006 EF 9 ; B69 194$: ihe #25, QTAB-OFFSET,RO + 2841 
FFFFFEFAGEF4 G EF 4 ; B71 MOVCS #4, CUR_MAX_FIXED,QTAB-262CROJ 
00000089 BF OF bop i PUSHAY ‘on 
00000000 BF OOF “4 psn, ON 
i ERE ay fe 
8103 cf F 83 CALLS #6,ALT_SOURCE 
C 8 6 B9B MOVE RO.PRE-PROCESS 
0000v ; B9 BRW 289$ 
00000087 BE oor OoeAS eo pusne 5 Sean: 
e7 F 9F OOBAA PUSHAB #=-12 
000000846 EF 9F OOBA PUSHAB IDATA+132 
i ee PUSHAB #1. 
8103 cf ‘ FB BB CALLS #6,ALT_SOURCE 
C } BB MOVE RO, PRE~PROCESS 
0000v 31 00BC BRW 
000000C0G EF 05 00BC4 196$: TSTL IDATA+192 3 2863 
Ov 15 OOBCA BLEG 98$ 
oooo00g9 «Br Opr bopEe PUSHAL oe 
79 ~—s«BF oF BDS5 PUSHAB #121 
000000846 EF 9F 00BD8 PUSHAB IDATA+132 
OF OBE SF Ober PUSHAR I. 
8103 CF F FB OOBE4 CALLS #6,ALT_SOURCE 
C 008by i DOREY HOVE RO. PRE-PROCESS 
Booopo0eg EF ge ORE 8A CORE? ee MOVEBE ATO RDATAT Ne : oer 
U Py 
- C 3 doer CLRB PRE PROCESS + 2879 
000000E8G EF 000000006 FF p} eB 200$: cHPL R_MAX_REC, IDATA+232 + 2894 
000000006 FF 06 ci ROVL R_MAX_REC,LOWMAX 5 2896 
F $: MOVL_ IDATA+232,LOWMAX : 
5 eee tA ; f 5 ite MULL 435 OTB OFFSET,RO ; $305 
FFFFFEFOGEFS 4 31 MOVCS #4, LOWMA QTAB=266CRO] 
0( 9 ¢ MULL 425 QTAB_OFFSET,R : 2903 
FFFFFEFAGEF4 4 38 cag moves  Getaetieyatiettar es ae 
000 F OF 00C56 PUSHAL # : 
sees 5 BF OOF a PUSHAL #0” 
¢ RE BE Boees | FURMAE. e 
m= A Recs 
0000v : C7 BRW ieee 


3 


000000006 


000000006 
000000006 EF 00007E00 
06 


000000006 


000000006 
000000006 EF 00007E00 
000000006 


00v000000006 
000000006 


000000006 


00v000000116 
00v000000006 
000000006 
000000006 


FFFFFEFAGEraD Doagoa0o6 


8103 


Generated Code 


00000000 F 
iy Q 
2 
; 00000000 F 
0 60 
‘ 008 Vv 
00 000001086 a 
Vv 
v 
Vv 
Vv 
V 
V 
Ov 
' 00000000 . 
52 Q 
00000000 4 
F 1 
0 606 
F 5 
ad 
EF 7FFF F 
Ov 
EF 0 
EF 3FFD F 
Ov 
EF 3FFF F 
Ov 
04 000001086 a 
EF p 
EF 
EF O1FE F 
OV 
EF 0200 F 
EF 19 
EF 4 
EF 0 
9} F 
00000000 F 
8 F 
000000 F 
4 F 
1 F 
gf 
C 
Vv 
8 F 
000000 : 
000000 6 F 


CNM ONGOIO NS 


WMD MOD 


1b-Sep=1 
g-3e0-} 


6 2048: 


8c 19:38:93 DiSksumsma 


PUSHAL 
CALLS 


& 
#1, CALC_BUC OVERHEAD 
RO,R2 


= 
#1 CALC _REC_OVERHEAD 
CEN ve 


6 
DATA+264 40,46 


#0 
#1, CALC_BUC_OVERHEAD 
RO.R2 


#1, CALC_REC_OVERHEAD 
(RO) EReI RO 
RO,#32256,CUR_MAX_REC 
#32767, CUR_MAX_REC 


tree RECORDS ,210$ 
81, CUR_MAX_REC 


g85.CUR_MAX REC 


= 

o=— 

Oo WNUP 
ANA 


A+264 #4 


DATA+17,219$ 
ARIABLE RECORDS ,217$ 
R_MAR_REC 


meo<We- 


»CUR_MAX_REC 


QTAB_OFFSET,RO 
UR_MAX_REC GTAB-~262(R0] 
ARTABLE_RECORDS,221$ 


ze BVBBBM— WRBWBBM ard 
se =O + OF WO 
io 


<r 


= 
~ 


=—FOMo-OfFh) UW00-TC0 3] 


-ALT_SOURCE 
spRE PROCESS 


e 
#-116 
#0 


RDB 


cal V2.4-277 B 
CPt VE EOE SRCIEDFASK.PAS;1 (3) 


241 


: 2911 


: 2921 


: 2928 


: 2930 


931 
933 


: 2937 
3: 2945 
: 2951 
: 2953 
3: 2957 
: 2959 


: 2961 
: 2963 


242 
oe77 Peat, 
PP EKSUMSRASTER  FEGF -GRCJEDFASK.PAS:1°4 
“Sep- STér:CEDF «SRC 
cot RgIH USGS Rede 
EDF ASK Generate PUSHAB #12 
D 
ve Of BE SF boner eyones iar. SOURCE 
a « FB D0D9A nove PRE-PROCESS {pt 
81 gf 00 , i one see: Rav #0 Tan, ORG. 2268 
Ay 0 
00vo00000006 EF A tv ¥ DBs BEL 2368 OF DATA+S3,.2278 : 2988 
0B ; HAB #0" 
00000000356 EF 0 oF DBD 2268: Rime n., 
000000 oF o¢ PUSHAB no. 
reek HEB Re Be Fl soe 
& FB OODD nove AO PRE PROCESS . 2992 
eth si 0000 oe, fal pecess 
4% i Ope 2278: CLAB BRE ; 3000 
att a + ae 2298: BBC #0, AUTO_TUNE, +3 ae 
sgt Pi 0090v i apes PUSHAL #1, CLEAR z 3012 
poner OL Fe donre Bets ROCREGIS, 2348 : 3016 
900006 EF 00 ET OODED PUSHAB COALS 
00v000000006 EF 1 EF SF bcos SHAB C; 
even i e ioee py PASSE OUTPUT 18 
000000006 EF © 9F SEDB CALLS, #8 PASSURITE. STRING : 30 
3 FB P ATA+ : 3020 
900000006 §5 000001186 FO OE A Beat 2538 Be 
3 70 
FFF9B07 EF  9F OOE PUSHL 
on eo , 02 
000000006 EF > EP Ob 2338: PUSHAB sve 
FFFF9836 Fe Bp Dede putts et. 
000000006 EF CALLS 
rn Sewers Rees fate amie : 3027 
000000006 EF t OF OOESE 2348:  PUSHAB Low SHI 
000000006 FF 9F OOESE oi. sai 
00006 EF SF OOE CALLS” #3, PASSURITE -STRING 
oooo0000s er 7 FB ODE pusHL a 
0 bb OOEr PUSHAB PASSFV R ; 3029 
oooos EF 9F OE? CALLS #3 PASSURITE. CHA ; 
000000006 FFFF9802 + +4 DOEBA puta PASSFV_OUTPUT 
o000c EF 9F OE CALLS #3 PASSURITE_STRING 
0000: FB OOE PUSHL £ 
000000006 _ EF BD QUE PUSHL IDATA#248 
FaG E PUSHAB NTEGER 
bo0000008 4 oF BOE CALLS #5, PASSURITE. ! 
000000006 EF 


<m 


BiH 


Generated Code 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


EF 


EF 


EF 


EF 


EF 


EF 


EF 


EF 


1 
000000006 FE 
FFFFO7DF Fe 
000000006 O§ 
6° 00084G EF 
000006 Fe 
FFFF97BD FS 
000000006 Fe 
000000DCG ae 
‘she 
000vV 
4 ty 
000v 
000v 
000v 
000v 
0000v 
FFFF9799 fe 
000000006 Fe 
0000v 
FFFF9789 Fe 
000000006 Fe 
0000v 
FFFF9779 f 
000000006 Ff 
By 
FFFFO76A F 
000000006 f 
Ov 
FFFF97SB F 
000000006 6 
V 
FFFF974C fe 
000000006 O8 
4 
FFFF973D COEF 


ANOTONOVIT"OOO"OTCST 


NON *W"OCW "oO "Ww "OO 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


K-11 Pascal v 263 
RKSUMSMASTER FEOF GRCIEDFASK.PAS; 1° ¢80) 


Sepnt9e 00:56:05 vA 


#32 
PUSHAB PASSFV_OUTPUT 
CALLS #3,PASSWRITE_CHAR 
PUSHAB C.AMD : 3030 


& 
et OUTPUT 
5 #3,PASSWRITE_ STRING 


IDATA +132 
PASSFV 
a3 PASSURITE. INTEGER 
CAME 


PU 4 
PUSHAB PASSFV_0 
#3 PASSVRITE STRING : 


DATA*220 8 3 3034 


4 
B 
B 
B 
B 
C 
C 
C 
D 
Dd 
Dd 
E 
E 
E 
F 
F 
F 
: 


| 
PUSHAB 


C.AMF : 3036 


PUSHAB PASSFV OUTPUT 
CALLS $7 pASSURITE. STRING 


C.AMG : 3037 


‘J 
AB PASSFV 
CALLS #5 PASSURITE. STRING 


2378: PUSHAB AMH : 3038 


PASSFV_ OUTPUT 
£7 pASSURITE. STRING 


238$: PUSHAB C.AMI : 3039 
PUSHL # 


PUSHAB PASSFV 
cagts #5 PASSURITE, STRING 


239$: PUSHAB AMJ : 3040 


PUSHAB PASSFV_ OUTPUT 
CALLS $7 casual te STRING 


™ 

Ww 

w 

Nad 

vU0mD 

fa -h~)~) ~) ~) ~) ~) ~] 
~” as Oe Oe Be 
= 


2228 
é 


ONAN NUN OM YJ MOP MONAT I MOD 


; 3041 


~ 
rx 
oO 
Sad 
e 
nn 
= 
& 
. 


# 
PUSHAB PASSFV_ OUTPUT 
#3 ,PASSWRITE_STRING 


9 CALLS 
is BRB 244$ 
A5 241$:  PUSHAB C.AML : 3042 


06000 Generated Code 1f-$ep-19 99:38:93 Mie KSVMSMA SFta\Feor -SRCJEDFASK. PAS;1 Page 24 


08 DD OOFAB PUSHL 48 
000000006 BP FAD PUSHAB PASSFV_OUTPUT 
000000006 EF re FB CALLS #3,PASSWRITE_STRING 
V j FBA BRB 244$ 
FFFF972E ai F OOFBC 242$: PUSHAB : 3043 
8 pp FC PUSHL 
000000006 EF  9F OOFC PUSHAB PASSEV OUTPUT 
000000006 ¢F 3 FB OOFCA CALLS #3 PASSURITE STRING 
ov 11 £01 “ BRB 244$ 
FFFFO71E FF OF roe htt PUSHAB (.AMN : 3051 
D po FD9 PUSHL #7 
000000006 FF F rDB PUSHAB PASSFV_OUTPUT 
000000006 FE neeamete 3 FB rel CALLS #3, 5 -PASSURI TE STRING al 
Bov 13 OOFEF BEQL Res ; 
FFFF9711 ai 9F OOFF1 PUSHAB (.AMO : 3055 
5 pp FF? PUSHL # 
000000006 FF F FF9 PUSHAB Hoey V_OUTPUT 
00000000G_ EF 3 F 8 FFF CALLS a astya! TE_STRING 
000000986 ef DS 01006 246$: TSTL [DATA : 3057 
FFFFO6FC hd oe 1008 OS HAB ats 3059 
07 oD 01014 PUSHL @# ; 
000000006 FF 9F 01016 PUSHAB PASS$FV_OUTP 
000000006 EF 3 FB 1016 CALLS #3 SASSUNITE. _STRING 
00v 11 010 BRB 249$ 
FFFF96ED ai 9F 01025 248$: PUSHAB C.AMQ : 3063 
7 +4 1028 PUSHL # 
000000006 FF F 010 PUSHAB PASSFV_OUTPUT 
000000006 FF 3 FB 010 CALLS #3 PASSURITE STRING 
5 000001186 aa p} 10 A 249$: CPL DA : 3065 
000000006 EF 99 FB 1 CALLS #0,NATURAL_DEPTH : 3069 
U 
000000006 _ EF seuvenct er 0 } wove RO BUCKET. BEFAULT . aor 
2 DD 01 PUSHL # ? 
000000006 EF or 1 PUSHAB PASS$FV_OUTPUT 
000000006 EF ; FB i CALLS #3 PASSWRITE, STRING 
00000006 EF DD 01 PUSHL BUCKET DEFAULT 
00000006 EF 9F 01 PUSHAB PASSFV~OUTPUT 
000000006 EF : FB CALLS 43, PASSURITE. INTEGER 
9 0D 01 PUSH 
000000006 FF 9° 1 PUSHAB 
000000006 EF 3 FB 01 CALLS 48 ten tt CHAR 
000000006 cf 9F 0108C 251$: PUSHAB PASSFV_ OUTPUT : 3074 
000000006 EF 1 §B 01 CALLS #1 PASSURITELNZ 
000000006 FF ar PUSHAB L SHI : 3075 
000000006 EF P 1 PUSHAB PASSFV_OUTPUT 
000000006 EF ; FB O01 CALLS 43, PASSWRITE_STRING 
0 bool PUSHE #32 
000000006 ai 4 1 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB 01 CALLS #3,PASSWRITE_CHAR 


10 


EDFASK 16-Sep-1984 00:56: VAX-11 Pascal V2.4-277 Page 245 El 
04-000 Generated Code ~3007 1382 99:38:93 DISKSVMSMASTER: LEDF «SRCJEDFASK.PAS:1 (24) v\ 
FFFFO6SF Ff oF Bf PUSHAB GANS : 3077 
000000006 EF BP 1 3 PUSHAB PASSFV OUTPUT 
000000006 EF oS FB cD CALLS #3, PASSWRITE_STRING 
00000846 EF 0D 010D PUSHL IDATA+132 
iitddiitts FE oF 1 Be PUSHAB PASSFV_OUTPUT 
000000006 EF aaa i fe es CALLS #5 PASSURITE_INTEGER 
9 10€F PUSHL @# 
ang gx omooons FFE) BRO FSSC OT an 
oovdoonoes ze EF 3 ft 10FE BBC Wa BOR TANS ohse 3 3081 
FFFF9630 FF F 01106 PUSHAB C.AMU + 3083 
000000006 EF oF 01108 PUSHAB PASSFV_OUTPUT 
000000006 EF O5 FB 1144 CALLS #3,PASSWRITE_STRING 
Ov 11 01118 BRB 254$ 
FFFF961D f oF 1119 253$: PUSHAB c AMV : 3087 
000000006 EF 9F 01125 PUSHAB PASSFV_OUTPUT 
000000006 Fe 3 FB oH CALLS #3,PASSWRITE_STRING 
§ 00000118G EF 01 011 ; 254$:  CMPL DATA+280,# : 3089 
04 000001186 Er i bt ; PePc JDATA*260 ry 
Ov 13 0114 BEQL 57$ 3 
FFFFOSFA Fe +4 DitGA 2568: Ap copy a : 3092 
000000006 EF 9F 0114 PUSHAB PASSFV_OUTPUT 
000000006 EF O5 FB 01136 CALLS #3, PASSWRITE_STRING 
Boosnoece EF OF Oley PUSHIAB PRESPY OUTPUT 
000000006 EF 5 FB Oi 67 CALLS #3,PASSWRITE_INTEGER 
FFFF9SD8 FF OF 0116E PUSHAB C.AMX 
000000006 4 P 1196 PUSHAB PASSE OUTPUT 
000000006 EF 05 FB 1176 CALLS #3. PASSURITE_STRING 
900000086 EF pp 1185 PUSHL IDATA+216 
00000006 F F 01188 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 01191 CALLS #3,PASSWRITE_INTEGER 
1 DD 01198 PUSHL #1 
000000006 FF BP 1190 PUSHAB Stet OUTPUT 
000000 F 3 FB 11hg CALLS #3,PASSWRITE_CHAR 
. seals FFFFOSAD cf a W1A9 257$: PUSHAB ¢ Any : 3095 
000000006 EF 8? 1181 PUSHAB PASSFV_OUTPUT 
000000006 EF Os FB 1187 CALLS #3, PASSWRITE_STRING 
4G EF 11¢ PUSHL IDATA+132 
ggmmasse FER SE RRS DRI a 
000000006 EF 3 FB O1IC CALLS #3,PASSWRITE_INTEGER 
FFFF9S8B ai 9F 0110 PUSHAB (C.AMZ 
B pp 11D PUSHL #11 
000000006 EF 11DB PUSHAB PAS$FV_OUTPUT 


M10 
106-000 Generated Code ae et 1 99:38:99 DL SKSVMSMASTER FEDF <SRCJEDFASK.PAS; 1 ¢8n)~ °° 


00000000G_ EF CALLS ae oPASSWRITE_ STRING 


1 
1 
4994 1 PUSHL IDATA+ 
00006 1 PUSHAB PASSFV 
00000000G_ EF 1 CALLS a3 PASSURITE. INTEGER 
1 PUSHL 
1 PUSHL 


#32 
000000006 PUSHAB fe A OUTPUT 


03 FB 01 3 
ER ODD OOIIEA 
F er 11F0 
3 FB O11F6 
1 DD O11FD 
a 
000000006 EF 65 FB O01 oF CALLS 5 ,PASSURITE CHAR 
000000006 FF 9F 01 ; ‘ PUSHAB PASStY Put : 3098 
000000006 EF 1 §B 0101 CALLS 1 PASSMRITELN2 
000000006 Fe oF 01 18 PUSHAB 190. SHI : 3099 
3 DD 01 PUSHL @# 
000000006 EF 9F 01223 PUSHAB PASSFV_OUTPUT 
00000000G_ EF ; 44 ! 9 bathe oye »PASSWRITE STRING 
0 0D 01 § PUSHL #32 
000000006 FE OF 01234 PUSHAB PASSFV_OUTPUT 
000000006 Fe 3 fe 123A CALLS #3,PAS eS CHAR 
2 000000F 86 FF D1 01241 CMPL IDATA+24 : 3101 
3 14 01248 BGTR 
0000v 31 124A BRW 5835 
FFFF9SID EF 9F 01 4p PUSHAB C.ANA : 3105 
15 DD 0125 PUSHL #21 
000000006 cf 9F 01255 PUSHAB PASSE Y OUTPUT 
000000006 EF 03 FB 38 CALLS #3,PASSWRITE_STRING 
50 000000246 F 000043¢8 ef ¢3 64 MULES #°F 100.0, RDATA+36,RO 
000000006 ai 9F 01 ig PUSHAB PASSFV 
000000006 EF aiieaas 3 fe 79 CALLS #8 PASSURITE. INTEGER 
5 DD 01 PUSHL # 
000000006 EF 9F 01 PUSHAB PASSFV_OUTPUT 
000000006 EF 03 «FB 01 CALLS #3,PASSWRITE_STRING 
FFFFO4ED EF 9F 01 PUSHAB C.ANC : 3107 
15 pp 1 PUSHL #21 
000000006 EF 9F 01 PUSHAB PASSE OUTPUT 
000000006 EF ; FB CALLS #3 PASSURITE. STRING 
50 000000206 F 000043¢8 f ¢3 MULES foro -RDATA+32,RO 
000000006 ai 9F 01 PUSHAB PASSFV 
000000006 EF 3 «FB 01 CALLS #3 PASSURITE. INTEGER 
FFFF94D0 ai oF 01 PUSHAB 6 AND 
2 pp 1 PUSHL 
000000006 ai F 01 PUSHAB PASSFV 
000000006 EF 3 FB O01 CALLS #3 SASSUNITE. _STRING 
FFFF94BD FF 9F 01 PUSHAB (.ANE ; 3109 
5 po 1 PUSHL #21 
000000006 EF 9F 01 PUSHAB PASSE ouTP 
000000006 EF : FB CALLS ‘ #3 PASSURITE. STRING 
50 000000286 F 000043¢8 f i ULE Rorsesio »RDATA+40,RO 
000000006 a4 oF PUSHAB BResty 


00000000G_ EF CALLS i. PASSURITE. INTEGER 


N 10 
EDFASK 16-Sep-1984 VAX-11 Pascal V2. 247 
Sen 800 Generated Code g- =Sep- 138 99: 38: 93 DISKSVMSMASTER: ehe eee SRCIJEDFASK.PAS;1 Page 
FFFF9GAO EF 9F 0131 PUSHAB ¢ sANF 
ging 
000000006 FF F 0131 PUSHAB Fissry OUTPUT 
000000006 EF FB O01 ; CALLS PASSWRITE STRING 
000000006 FF oF 01 PUSHAB Passe UTPUT : 3112 
000000006 EF 1 £B 01 CALLS 1 PASSURITELNZ 
000000006 a4 PUSHAB 10. SHIFT : 3113 
000000006 EF 9F 0133A PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 «FB O01 9 CALLS 43, PASSWRITE_STRING 
1 DD 01 PUSHL #1 
0 pp 1349 PUSHL #32 
000000006 ai F 01348 PUSHAB PASStY OUTPUT 
000000006 FE 3 FB 01351 CALLS PASSURI TE. CHAR 
5 000001186 FF D1 01358 2598:  CMPL ity : 3117 
Ov 13 0135F BEQL 61$ 
000001186 cf p5 01361 TSTL JDATA+280 
Ov 13 01367 BEQL 62$ 
FFFF94469 EF  9F 01369 261$: PUSHAB C.ANG : 3120 
15 DD 0136F PUSHL #21 
000000006 FF 9F 01371 PUSHAB PASS$FV_OUTP 
000000006 EF 3 FB 01377 CALLS py PASTE STRING 
03 DD 01 : PUSHL # 
QOOOOOACG EF DD 01 PUSHL  IDATA+ 72 
000000006 FF OF 01386 PUSHAB PASSFV 
000900006 EF 3 «FB 01 CALLS 3 PASSURITE. _INTEGER 
FFFF9435 ai 9F 0139 PUSHAB C.ANH 
2 0D oi 99 PUSHL b 
000000006 EF 9F 0139B PUSHAB PASS$FV_OUTPUT 
000000006 _ EF 03 =FB o1 Al CALLS #3, PASSURITE _STRING 
FFFF9422 EF 9F 013A8 262$:  PUSHAB C.ANI : 3122 
11 Dd 01 E PUSHL #17 
000000006 FF oF 01 PUSHAB PASSFV 
00000006 EF 3 FB 013B6 CALLS #3, SASSORITE.S TRING 
V BB VARIABLE_RECORDS, : 
00v000000006_ ‘EF 00 €1 01 ¢ #0 Ene 264$ 124 
FFFF9419 EF c3 PUSHAB CAN : 3126 
000000006 EF oF 1 PUSHAB PASS$FV_OUTPUT 
000000006 _ EF 3 FB 1 CALLS #3, PASSWRITE_STRING 
OOv 11 0130A BRB 265$ 
FFFF9GOE ai 9F 0130C 264$: PUSHAB C.ANK : 3130 
9 DD 01 PUSHL # 
000000006 FF OF 01364 PUSHAB PASStY oUTP 
000000006 EF 3 Fe 13EA CALLS S PASSURITE STRING 
5 000001186 cf D1 O1°"1 2658:  CMPL TDA 7 3132 
Ov 13 1383 BEQL ry 
01 000001186 EF D1 O13FA CMPL JDATA+280.41 
Ov 13 1401 BEQL 
FFFFO3F3 FF 9F 01403 267%: PUSHAB C ANL : 3137 
3 pp 1409 PUSHL 
000000006 EF 9F 1408 PUSHAB PASSFV 
990000006 EF 3 re 141 CALLS 4 Se ASSURITE.S STRING 
00v00000000G6_ ‘EF 0 ' 141 BBC ;VARIABLE_RECORDS 269 ; 3139 
FFFFO3DA Ff 14 PUSHAB c.ANA : 3141 
000000006 Ff oF 14 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 0142E CALLS #3, PASSWRITE_STRING 
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000000006 


000000006 


000000006 
000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


EF 


EF 


EF 


05 
02 


EF 


FFFF93D7 
000000006 


00000006 


000000006 
000000006 
000000006 
000000006 


000000006 
FFFF937D 

000000006 
000000E06 


FFFF9368 
000000006 


FFFF935D 
000000006 


FFFF9352 
000000006 


000001186 
000001186 
FFFF9335 

000000006 


ANOS ONOVOI "OT ONONOVTI"OVTI"OOCO— 
MONO * "OCW "OW WVOVCM"VOoVClWI"oO 


ooo 


ooo 
Bande ied de nen nee eee 
<= 


onoo0o-90=]-900  - "O00 "090 O- "00 oO 
CSCW"O WW Wn TOTO TOOT 


Sep-1 
1g-fep-1 
2698: 


2708: 


271$: 


PWS DW VINO LS NUM OND VW BS SMO AM 


DWP SF OOO ODO SI NI NAAAAUIN SE & 


2728: 


2738: 


2748: 


WwHHRMMMMOOOVOPOMOMOO 


s50- 222833 
RON MNO RRO POMOS™ ON MOMO PF OO SN 


2788: 


a a a a at a at 8 tS = Ft ts ss nt od ts tt ts i tt 


BRB 
U 


caNN 


PASSE OUTPUT 
/ pacer STRING 


IDA 
PASSFY 


He PASSURITE. ~INTEGER 


432 
PASStY OUTPUT 
PASSWRI TE CHAR 
PASSE UTPUT 


1 PASSURITELN2 
foo. SHIFT 


PASSFV_OUTPUT 
oye -PASSWRITE_STRING 


$32 
PASSFV_OUTPUT 
ie PASSWRITE_CHAR 
CANO 
#i5 
PASSFV_OUTP 
#3, PASSURITE STRING 
DATA+224, #02 
% 
73$ 
74$ 
75$ 
C.ANP 
#11 
PASSFV_0O 
#3 PASSURITE, STRING 
C.ANQ 
#11 
PASSFV_OUTPUT 
$3 PASSURITE_ STRING 
C.ANR 
#il 
PASSFV_OUTPUT 
s PASSURITE STRING 
és 
JOATA*280.85 
JpATA+280,42 
9$ 
ANS 


#16 
PASSFV_OUTP 
a3 PASSURITE. STRING 


382 98: 38: 83 Dis SKSVMSA AST tr‘ fé DF GRCJEDFASK. PAS; 7 ( 19%) °* . 


3; 3145 


; 3147 


; 3152 
; 3153 


; 3155 


; 3157 
; 3159 
; 3160 
; 3161 


; 3169 


; 3172 


104-000 Generated Code if-te 309-1382 99: 38: % DE EKSUMSAASTER FEDF-GRCIEDFASK.PAS;1 280)” 


SoooooGKe EF oF pIese puss baSsty Oot 
000000006 EF ‘i FB bi CALLS 43, PASSURITE. INTEGER 
b pp 1540 PUSHL #32 
000000006 FF F 01545 PUSH PASSty OUTPUT 
000000006 Fe 3 «FB OT 25 CALLS PASSURITE CHAR 
5 000001186 FF p 279$: CMP [bAtA : 317% 
03 000001186 FF 04 e3 CPL JDATA+280 43 
FFEFF92FS fF 9F 01 $F 281$: PUSHAB C.ANT : 3177 
0 pp 1 PUSHL bia 
000000006 EF 9F 01576 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB f CALLS #3, PASSWRITE_STRING 
000000886 EF BD 138 PUSHL IDA 
000000006 EF 9F 01588 PUSHAB aresry TPUT 
000000006 EF 3 «FB 1391 CALLS #3, PASSURI TE INTEGER 
1 0d 01598 PUSHL #1 
0 DD 0159A PUSHL #32 
000000006 FF 9F 0159 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB OSA CALLS #3, PASSUR TE_CHAR 
00v00000000G_ ‘EF 00 £1 13A 282$: BBC #0. REGIS, 284$ : 3182 
FFFF92CS FF SF 015B1 PUSHAB C.ANU : 3184 
4 0D 01587 PUSHL #4 
000000006 ai 9F 01589 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 015BF CALLS 3 PASSWRITE _STRING 
000000006 ai 9F 015C6 PUSHAB 
2 op 015¢¢C PUSHL ie 
000000006 ai 9F 015CE PUSHAB PASS$FV_OUTP 
00000000G_ EF 3 FB 01504 CALLS th “PASSURITE, STRING 
000000006 FF OF 1308 PUSHAB 
2 0D 01561 PUSHL ie 
000000006 ai OF 133 PUSHAB PASSFV 
000000006 EF 3 FB 015E9 CALLS #3 PASSURITE STRING 
000000006 FF 9F 015F0 PUSHAB PASS 
000000006 EF 1 FB 015F6 CALLS tT SUNT TELN2 
000000006 cf oF 01 ED 284$:  PUSHAB PASStY OUTPUT : 3186 
000000006 EF 1 FB 0160 CALLS PASSURITELN2 
03 OOO000F8G EF 01 0160A CMPL IpitAve 7 3191 
Ov 18 0161 BGEQ 87$ 
000000006 EF 9F 0161 PUSHAB PAS$FV_OUTPUT : 3193 
0G000000G_ EF 4 fe 19) CALLS #1, PASSWRITELN2 
Ov 1 16 ser BRB 289$ 
50 SC 090 (016 Te MOVB = PRE_PROCESS,RO : 3205 
04 016 RET 
; Routine ze: ytes, outine Base: + 
Routine Size: 5670 b Routine B SCODE + O83FC 
0000 VERIFY_PROCESS: : 3250 
"30 - WORD “M<R2,R3,R4 
5C 01 VB so#1, VERIFY phate $$ ; 3352 
3C 0B 000000006 boy 3 CASEL arAB_OFFSEY #1 #60 : 3259 
88 By F -DISPL 1$ 
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24-277 
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if 
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Generated Code 


qucucucucucucucucucucucucucucucucucucuCuCuCuCuCUCUCUm MM MCuCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCU@moucUCUCUCU 
PAAR AICI NIN NI NINN ONIN NIN NINO UU NIRNININIRICICINICICINICININININ CUCUCUCUCN 


SF FF FF CC OC OC CC OC OO OO OO OO ONC eee 


a aD I aD I I I I a I I I I I I I I I I I I I I I ed ed ce a ed dd ed ed ad dd nd od) od od) I I od I A I I 
E2aaagaaaagaaaadgaaaaaagaaagadaaadcaadadcagagaaaagagaaagcagacagaadaaaagaagaaaaaa 
MANANAMNNANNMNMNNMAVKNMNMVRANVWNANMNMWANWNWRNHWVWMNMNWMNANAKNMHMNVWKHHWHWMMNHWHMWNMWHHKWMKHWMWHVWVMHMHKWNNNMNNNYM 
ht at Og Og ae ad at dd Od dd a Hd Pd ed dO) Ph Sd Pf Ht dd Of Oe Oa Sand Bad Dad Saf Oa a Pa) Dad ad dO Hd dn) Od a nd dd Pd Dd Pd 


KOE FDO KONE FO MO KM. ODO KOA ODO EWE ODO KE MNO OO KW OO MOU 


So NNN S SF FSF SF OOONONAO LLOSORERER SESS 


1 


1 
EDF ASK ig-ge -1984 00:56: VAX-11 Pascal 4-277 P 51 
104-000 Generated Code ~Sep- 38 99:38:95 DISKSVMSMASTE DF .SRCJEDFASK.PAS;1 299° 
B900V 3 “Dispt 78 
000000006 FY HI A 1$: ory bFae OFFSET,RO sze0| 
8 FFFFFFB Seek ; es MOVAQ SDATR BOEROS “RO ; 
Sov $3 90098 theo $8 
51 000000006 Ff D MOVL § QTAB_OFFSET,R1 : 3273 
FFFFFF cfr 1 M CLRE BDATA~7CR1 
000000006 EF 60 10 , iE AE 3$ CHPZV #0.#16, (RO) ,MAX_STRING_ANSWER_LENGTH : 3281 
00v000000006_ ‘EF E 9 BBC ob OPTIMIZING 5S : 3287 
0 99000006 EF 8 C1 MOVW MAX _STRING_ANSWER_LENGTH, (RO) : 3291 
FFFEFFFOGER SI overs ‘ } te MOVE ee eas A nies 
0000v 31 00007 BRW 94§ 
000000006 EF PB Beer O° Peete oe PcTRSEREET_ px — 
f 34 Goes CLRB VERIFY_PROCESS : 3302 
0000v 31 O00E BRW 94$ 
50 000000006 FF 0 0008 8s MOVL TAB OFFSET RO : 3310 
FFFFFFFOGEF4O 1 30 OEF MOVE #1,BBATA=7LRO 
0000v 31 OOF? BRW 9 
50 000000006 EF 00 OOOFA 11$:  MOVL  $QTAB_OFFSET,RO : 3320 
30 00000006EF 40 DE 101 MOVAL IDATA R0.RO 
D1 00109 CMPL (RO) ,#5 
et ne ee 3 
00v000000006_ EF 0 £0 oN § #0,,AUTO_TUNE,14$ : 333 
000000006 FF F 00119 PUSHAB SHIFT : 33 
000000006 t or PH PUSHAB PASSFV OUTPUT 
000000006 5S FB 00127 CALLS #3,PASSWRITE_STRING 
aubenen RE) cUsHAD ANY 
000000006 i F 001 PUSHAB PASS$FV_OUTPUT 
000000006 3 FB 001 CALLS #3,PASSWRITE STRING 
000000006 EF 9F 143 PUSHAB PASSFV_OUTPUT 
000000006 1 FB 0014 ALLS #1,PASSWRITELN2 
00004140 8F DF 00150 PUSHAF #*f3. : 3331 
000000006 EF 1 FB 6 rite CALLS #1,LIBSWAIT 
0000v 31 00150 15$: BRW 94$ 
05 000001186 FF t " 16$: cHPL DATA+280,45 : 3344 
000001186 r : 9 IST ATA+280 : 3346 
28 000000006 F ; } CPL NBUT VALUE .#43 
02 000001186 & : WA 19$ cnPL DATA#280,#2 
30 000000006 ® p ; CPL NPUT_VALUE ,#48 
03 000001186 4 p 218 cnPL ATA+280,43 
22 000000006 EF 01 001 CMPL =‘ INPUT_VALUE ,#34 
} 


] 
f 11 
EDFASK 16-Sep-1984 VAX-11 Pascal V2.4-277 P 5 
Oe 800 Generated Code Bacon ee 8: ee8s Pee ncaRe eta Febr caczeprask.pass 1 e0)- “| 
00v 13 0019¢ BEQL 9$ 
01 000001186 FF p i 238 cnPL ; ATA+280,41 | 
$A 000000006 fF of OIA HPL — JNPUT_VALUE #58 | 
04 000001186 aa : 186 25$ cnPL ATA+280, #4 | 
36 000000006 Fr 9 189 CPL NPUT_ VALUE ,#54 
00000100  8F 000000DCG FF pi 162 278: CHL JDATA*220, #256 
OOVFFFF909B ry gggogncG F eb 1CF BBS IDATA#220,C.ANW, 31$ 
6 0 by 12 iF 283: gues NPUT VALUE, #54 
C 96 OO1E4 29%:  CLRB VERIFY PROCESS : 3368 
000000846 FF 03 166 Ate iste A+T32 : 3398 
00000100  8F 000000006 FF pi 3 CHL NPUT VALUE , #256 
OOVFFFF9O8F EF 000000006 F | 168 BBC INPUT VALUE CANK, 34S oe 
03 000000F 86 a D1 03 34$ cnPL ATAY2GBe oct : 3381 
00000100 8F 000000006 EF 01 13 CMPL We - _VALUE ,#256 
Ov 16 1D BGEQU 37$ 
OOVFFFF908B EF 000000006 F fi If BBC vents AR C.ANY, ,37$ 
01 000000C06 4 D1 p 37$ cnPL TAtT92,a acess : 3388 338 
38 000000006 EF p} é CMPL ee ie 
bov D BNE 0$ 
C 9% F CLRB ss VERIFY PROCESS : 3391 
01 000000C06 4 D1 a1 40S: CHP IDATA+T92, a : 3393 
28 000000006 » p1 4A CPL INPUT _VALUE ,#43 
00v000000006_ EF 8 £6 33 BBS #0 ,AUTO_TUNE ,44$ 
000000006 EF 9F PUSHAB SHIFT + 3403 
cooncoos fe RP SEL RS Pls aur 
000000006 _ EF 3 FB $ CALLS a _PASSURITE _STRING 
000000006 Ff ii i BUSHAB A ANSI_REVERSE~ 
000000006 EF 9F 0027 PUSHAB S sry 
000000006 EF 5S FB 43 CALLS #3 PASSURITE. _STRING 
pants ok mane fait 
000000006 FF F p PUSHAB PASSFY OUTPUT 
000000006 EF 3 FB CALLS 5 PASSURITE _STRING 
000000006 Ff i A BUSHAB Aust RESET 
000000006 Ff P ; PUSH PASSFY OUTPUT 
000000006 EF 3 FB CALLS 3 PASSURITE STRING 
000000006 EF 9F F PUSHAB PASSIY OUTPUT 
000000006 EF 1 £B 5 CALLS A SSURITELNZ 
00004140 8F OF g PUSHAF 4 its > 3406 
000000006 EF 1 FB CALLS #1, LIBSWAIT 


a 


11 
16-Sep-1984 00:56: VAX-11 Pascal V2.4-277 Page 253 
Oe 800 Generated Code g-bep-1944 98 389G PT caRe tea Y Bete cecseprasx.pas:1 282) 
9 44$: Rw 94$ 
000000866" EF p 5s rit Ist ATA+132 : 3419 
01 000000006 FF p D4 CHL NPUT_VALUE , #1 
F MP NPUT_VALUE ,#2 
sommes 
Ov ED BNEG ee . 
ie C EF sot CLR YERIFY_PROCESS : 3431 
4 51$: NPUT_VALUE, IDATA+256 : 3439 
cov899985986 ff 000000006 GBP Biers PTF BRIE PUL YALE Rt 1H 
00001 F 000001006 EF i 07 CHL IDATA+256,4256 
OOVFFFFSFEE EF 000001006 EF € 14 BBC IDATA+256,C. AOA, 55$ 
. 5S ittdhtts F ODI 9 53$: CMPL eerie 
oobov $7 00859 so aad 
00000100  8F 000001006 i D1 ¢ CHL IDATA+256 #256 
0000v i 9 BRW 43 
03 FFFF8FE6 EF 7700010 oopov 9 ¢ BBS JDATA+256,C.AOB, .+3 
Cc B55$:  CLRB VERIFY_PROCESS : 3459 
900006 EF 34 OO8S0 S78: ftRB TEST 467 
0000019G EF 09000006 Ef 90 6° + +MOVB = =INPUT_VALUE, TEST+25 : 3468 
OO001AG EF 999 006 EF OD 1 MOVL § INPUT“NUMBER, TEST+26 : 3469 
G EF 099 Mg EF p ¢ MOVL INPUT NUMBER. DEFAULT PRINUM : 3470 
Booe EF 000000196 EF MOVE TEST+25,ACTIVE_PRIMARY : 3471 
50 000 006 ER 58 ce Ookhs ROVE, ACTIVE PRIMARY DEFAULT PRIMARY 3h 
F F4 F 04 28 MOVC3 #4, INPUT VALUE, QTAB-270(RO] , 
snigionpsons pin, 65 000000196 FF t ; cMPB T ST 408 BS : 3475 
0B 000000196 EF 91 8 CMPB TEST#25,#11 
00 by 3 4 Bau” +83 
0000001AG EF FE BF 08 0 i 7 59$: CMPZV i WB, WOXFE, TEST#26 : 3483 
C 3 CLRB VERIFY_PROCESS : 3485 
900000006 EF 5 re OMe: Ese at .SCAN DEFINITION _— 
F BBC #0. FOUND AREA,6 : 3489 
-” 5S 000000196 FP 51 7 CAPR I 1e25,8S 
50 0000001AG FF 000000006 EF c8 eb SUBL3 H GH AREA, TEST#26,R0 
By t EF BLEG = 6 
00v000000006 EF 5 £1 OOSES 658: BC. PONE DMM Cry Sos : 3438 
4 000000196 FF ; F CHB T oye . 
50 0000001AG FF 000000006 EF ¢ SUBL3 HIGH_KEY, TEST+26,R0 
1 : p : CMPL =s RO, #T 
v 15 0041 BLEG }40—s«69$ 


QO ALLL CC ttt ee 


H 11 
104-000 Generated Code Mergeen13Bs 99:88:93 UES cbimshaSten fev saczeprasK.pas:1 2800 


94 0041 CLRB  =—s- VERIF Y_PROCESS : 3507 
0OvO0000000G EF 3 113 69$:  8BS #0, FOURD_AREA, 73$ : 9 
6S 000000196 FF ; 4 F CPB 1935 8S . 350 
0000001AG he p 4 Ist 1+26 
94 004 CLRB = VERIFY_PROCES : 3517 
00v000000006_ EF § 0 004 6 73$: #0,FOURD_KEY,79$ : 
5B 000000196 FF 5} 43A Ohee 0 FOUND 3519 
Ov 44 BNEQ $ 
0000001AG x p a4 Ist TEST+26 
f 94 00448 CLRB ERIFY PROCESS : 3527 
0000001AG FY Wy ret 78$ eral T $1426 533 
00vO0000000G EF 50 Eg 435 re: BBS r0 FULI._CHOICE,94$ : 3538 
000000006: ‘EF 000000006 EF BO 4 p on MOVE F_HEAD, DEF _CURRENT : 342 
000000006 F OOF ues PUSHAB TEST : 
000000006 a FB ait CALLS ‘ » CURRENT_EQ_TEST 
000000006 EF FB 83 CALLS #0, INCR_CURRENT : 3548 
00 8F  9F 00482 83$ PUSHAB # 
000000006 EF 9F 004 PUSHAB TEST 
000000006 EF : fe 48 CALLS #9, CURRENT £0_TEST 
52 000000006 EF 00 494 MOVL DEF _CURRENT,R2 
01 Ag D5 00498 TSTL  1(R2) 
Vv 12 0049 BNEG 85$ 
1 96 004A INCB) RT 
51 0 8 OA 85$ BISB2 RO, 
ra) 1 €9 004A BLBC =—_ R11, 818 
000000006 EF D3 04A8 TSTL Det CURRENT : 3552 
Ov 1 4A BEQL 90S 
00 8F 9F 004B PUSHAB #0 : 3556 
000000006 EF 9F 004B PUSHAB TEST 
000000006 F rf FB 48 CALLS ‘ »CURRENT_EQ_TEST 
C Se 4C CLRB  ——« VERIFY_PROCESS : 3558 
O6v 11 004¢ BRB 94 
C 94 004C7 90$:  CLRB  VERIFY_PROCESS : 3564 
Ov 11 acy anes BRB 94$ 
50 SC 20 cB 94$: move VERIFY_PROCESS RO : 3576 
3; Routine Size: 1231 bytes, Routine Base: SCODE + 09A22 
POST_PROCESS: : 3621 
003 d RD “M<R2,R3.R4,R5> 
E 04 SUBL2 #4, 
: 1 MOVE #1.POST PROCESS : 3631 
00000042 = &F 000000006 a CF 08 CASEL QTAB_OFFSET. #5 ,#66 : 3633 
16 “DISPL 134 
1 “DISPL 134 
1A SDISPL 134 


v0 


| 


igheoe}3Re QOS405 YMCA E6727 seorase-pas:1”*8b2 


11 


Generated Code 


Bio 


TTT TAHAS TTF ATT TIOOT AA AAAA ~TARHAGGAGA TTA AAAGA 


ee eee eee eee ee eee eee ee EE | 
2aaaaaaaaadgcadaaagadadgadgadgadadgadgagdgadgagagadgaaaaagagagaaagaaaadaaaa 
ANNNANAMAAMNANAANAAANNAAANANAAANMNAANAAAANANNNMNAMNMAN NN ANNAN AMNMNWMAMNAMNNMNNWNNMNNMNMMNMNNws 
A at ad ad td Oh ad Og at dd Od dd Pd Ot Od Ent Og Pt Om DO Ba dO ad ded td Fe Pf Pond ae fae md Dee nd Pe a Deed Po) ta Eh te) Oech Dd DS Oo 
fam Tm mm am a a 7-7-7 - 7-7 -Y-)-Y-)-7-)-1-1- 1-1-1 - 1-1-1 - 1-1-1 - 1-1-1 -1- 1-1-1 - 1-1-1 - 1-1-1) 


> >>>>>>>>>>>> >> =>  2S>23>>3>2>>>>>>2> =>2>>2>>2>>> =>>>2>>>> 


SOOSOSOOSOSOOSOSOSSOSSSOSOSOSSSSSSSOSOSSSSSSSSSSSSSSSSSSSSOSOSSOSOSOSOSOOSSSS 
CGOOOOOOOOOOOSOOSOSOOSSOSSOSSSESOSSOSOSSSOSSSSOSSOSSSSSOSSSoSSSOSOSOSOoSoSooo 


EDFASK 
OE 800 Generated Code 

Vv 
oy 
V 
Vv 
1] 
1) 
01 000000006 i 

000000006 44 
00000 pone EF 

FFFFFFFIGEF4O 00000000 Fr 
0 <00du 

oo000000ceFz6 ity Bboe FF 
0000v 

i 4 4545444 EF 

409444 ali 000000006 4 
000000006 g 
FFFFFEF2GEF40 00000000G oossy 
00000000G_ EF ened EF 
ap9p00006 EF 

000020G EF 

000000006 EF 2 
00000000G_ EF 1 
0000V 

00000000G_ EF 09900006 EF 
0000 43 EF 

00000 8G EF 

000000006 . 
0000v 

50 00000000G EF 
OO000000GEF40 000000006 4 
000000006 i 

00000000G_ EF 
00 oc’ er 

00000000cEF 20 ti itt 4 
00000100 8F 000000006 fey 


OOVFFFF8CD7 EF 000000006 i 
00 


000000006 EF . 
8 SESBREel 
51 63 BF 37 I 


=—C0—COoan—F— 


MAF FO IWOOM $9 OF FWO DO "9 OT FIM ODO UNWWOTNDODVWNWNOGBIWI Iwo OO" 9 Ow 


OMOVOmMo OO Gh 3 FOO ("Onn FOO 29 Ono — 


11 
Ibese -1984 00:56: VAX=11 Pascal v2. 
3ep-19 4 99:38:93 DISKSVMSMASTER: eee ce SRCJEDFASK.PAS;1 ( 
4 .DISPL 138 
“DISPL 4 
SDISPL 48$ 
<DISPL 49S 
36 <DISPL 5$ 
9 -DISPL 618 
A BRW 4 
D 18: CLRB RO 
OF CMPL JNPUT_VALUE .#1 
ie BNEG $ 
A INCB RO 
AA 3S: MOVB RO, QUERY_FLA G. 
1 MOVL QTAB_OF FFSES 
8 MOVE QUERY. FLAG, eRe a-7ER01 
C4 BRW é 
C7 4$ MOVL § QTAB_OFFSET,RO 
CE MOVL  INPUT_VALUE. PDATALROI 
DA BRW é 
DD 5$ MOVL QTAB_OFFSET,RO 
E4 MOVL INpUT VALUE IDATACROJ 
F MULLS i FFSET,R 
F move # tu “VALUE , QTAB-270(RO] 
8 6$: mova 68s L_STRING, ANALYSIS_F ILENAME_DESC 
1 PUSHAB ANALYSIS. FILENAME _DESC 
1 PUSHAB 
1F CALLS i ,LIBSSCOPY_DXDX 
6 nove gANALYSIS_ SPECIFIED 
0 8$: mova 688 STRING, OUTPUT_F ILENAME_DESC 
PUSHAB QUTPOT FILENAME _DESC 
41 PUSHAB SDATA+ 
47 CALLS #2,LIBS$SCOPY_DxDx 
af BRW 6 
10$: MOVL QTAB_OFFSET,RO 
& mov Input. VALUE. HDATALROI 
66 TSTL INPUT _VALUE 
6c BNEG 12$ 
$ INCB OR 
128: Move RO FULL_PROMPT 
7 BRW 68$ 
7A 13$:  MOVL  QTAB_OFFSET,RO 
1 mOVL INPUT VALUE * IDATACROJ 
F CMPL NPUT_VALUE , #256 
A BGEQU 
¢ ¢ INPUT_VALUE,C.AOC,15$ 
A INCB 
AA 15$:  MOVB RO, ISAM_ORG 
B1 BRW 
B4 16$:  MOVL QTAB th FSET. RO 
B MOVAL IDATR 
C MOVL (RO) .R 
¢ BGEG =«7 
¢ MNEGL R1,R1 
(B 17$ CMPZ2V #0. #7,.#°X63,R1 


Peg 256 


; 3651 


; 3652 
; 3667 


; 3678 
; 3679 


; 3687 
; 3688 


; 3689 


697 
698 


; 3706 
; 3707 


; 3715 
; 3717 


; 3735 


<m 


BiB 


000000006 


Generated Code 


03 000000006 
00v000000006 


98 

nn i 
a ae 

: 


F 
FFFF8C7D 


F 

oe 

000000006 EF 

000000006 65 
000000006 fr 

000000006 1 
0000000G EF 

00000006 Fe 

00000000G_ EF $ 
0000Vv 

00v00000000G_ EF 00 
000000006 EF 

50 1 

51 0 

52 O0000000GEF 41 
00000200 =8F ge 

$¢ 0200 er 

OO0O00000GEF 41 
00000200 =8F Gov 
63 0200 F 

52 000000006 EF 9 

EF 3 

8D 8 1F 
4444 G EF 

1 000000F 0G Ff 

000000886 cr 4 A140 
00007F FF F 000000886 4 
0000v 

00000088G EF 7FFF F 
51 00 a PY 

oooooocos &F GoobooDOGErE| 
000v 

00000000ceFa4 Gera 
00v 

51 000000006 44 


000000086 bov 


NAW HMMMOOOOOWD DS PS PS OOOO NII OAM FWAIININ | — “CON MOOVTCIT 
SM OOM OM OO MND COMM DB MHPMOOL AM EMO OM ONOOUIMIION LH S LM NH SB FN LF OP MANOWO VN OK 


—9 O09 W999 WIS 9 WN *§ 9 09 9 MOOW "9 DWI" S SO FGI MWNOONONOS OMUMALSOSSOCTC°O— 


SAnPo ooo [SO lA PE FIMOOU BH MNUIMOANUMOOROLD SO AD no ne OMoMoD ROD 


= 
oOo 
wn 


nm 
o 
AP 


30$: 


32$: 


hed 
AL 
wn 


ww 
oo 
ad 


te 
nn— 
coem— 
Zo 
te 
eb 
oo 
coco 
~~ 
-o 
Wo 
wu 
Wo 
Wo 
ow 
o=<= 
-—> 
mx 
> ee | 
w= 
<— 
wn 


Pa 


RO 
R1 
BATA-32CROJ 


Add (RO 


UTO_TUNE,.+3 
REGIS 258 


RBOBORBOBWO--OO-—— 


j 
PASSFV_OUTPUT 
#3,PASSWRITE STRING 
PASSFV_OUTPUT 

#1, PASSWRITELN2 
COL_ONE 


LINE_ONE 

#2 ,LIBSERASE_PAGE 
#0,GLOBAL_SET,33$ 
PRIMARY_INDEX. BUCKETS 
#1,R0 

RO. 1 

INIT PRIMARY BUCKETSCII,R2 
(R2) #512 

#512, (R2) 


ADDED _PRIMARY_BUCKETSCIJ,R3 
(R3) B51 


IMARY_INDEX_BUCKETS,R2 

sPRIMARY_INDEX, BUCKETS 
NDEX_BUCKETS RO 

xb. 

8 1 DATA+184 
45832767 

#82767, IDATA*1&4 


TDATAER 3 16ATA#192 
8s 


SEGMENT _NUMBER,R1 
QTAB OFFSET RO 

ATALRO), SEGMENT_POSITIONCR1) 
SEGMENT NUMBER. RI 
igernens 

$ 
R 


scal V2.4-277 p 57 
MSMASTER  FEDF <SRCJEDFASK.PAS; 1° 284) 


3735 
3740 


3748 


755 
757 


0 


258 


ifedeo-1984 00:56:05 


X-11 Pascal Vestee Page 

Generated Code SKSVMSMASTER: LEDF. CECIEDFASK. PAS;1 (54) 
WANTED 
1 


sc 
AS 
TE 
oR 


00000000GEF 41 0 9 2 40$: Move 0,86 cr1] 
9 200900006 FBO b08st sovE SEORENT FABER. -_ 
meen Gera p ROVL IDATAERO aba soe _LENGTHER1) 
0 F OD 41$ MOVL.  QTAB_OFFSET,R : 3841 
000000006 zt + 8 Midi ae : # suBL2 IDATA afr st ton MAX_REC 
1 006 EF 00 42$: OV QTAB_OFFSET,R1 : 3845 
31 BonbbROOcERL] bE BOSeE MOVAL  SDATAPRI SER 
1 ger ge GP 
0000v 31 1 BRW 683 
61 ps 74 CLRL = ¢R1) : 3847 
0000v 31 i: BRW 68$ 
03 000000F 86 i D4 0 79 45$: CHL <.Rey a3 : 3853 
0000v 31 : BRW 683 
900000 6G EF 04 CLRE RDATA+36 : 3857 
00000206 EF D4 B CLRF §- RDATA+ : 3858 
000000286 FF ps 0391 CLRF §§ RDATA+40 : 3859 
0060v 1 00397 BRW 68$ 
51 900000006 EF D0 0039A 48$: MOVL QTAB OFFSET R1 : 3873 
000000146 EF 00000000GEF41 09 O3A1 MOVL. IDATACR1], IDATA+20 
51 000000006 FF 19 ¢ OAD MULL3 #25,QT i : 3874 
0 000000006 EF 00 00385 MOVL  QTAB R 
FC AD 00000000GEF 40 ; 0 Bf MOVAL  IDATACROJ,-4(F 
FFFFFFOFGEF41 FC BD 04 03¢ MOVC i a-4(FPS, GTAB-261CR12 
0000v 31 003CcF BRW 68 
000006 EF 00 00302 49S:  MOVL TAB oFFs : 3886 
000000106 EF 00000000GEF DO 00309 MOVL — IDATACROJ _loaTAeie 
0000006 CF 003E5 CASEL QTAB_OFFSET,#36,433 : 3888 
O3ED -DISPL 52$ ~ 
O3EF 6 
O3F1 6 
0 6 
0 6 
0 6 
0 9 6 
OSE 3 
F 50$ 
; 
? 
5 $55 
8 6 
; 33s 
6 
6 
6 
$ 3 
B 6 
D 6 


BiB 


3; Routine Size: 1260 bytes, 


Generated 
7FC1 —sCCF 
7FC1—sCCF 
7FC1—sCCF 


000000006 EF 
50 


QOO00000GEF 40 
00000108G EF 


0D 
oc 


000000006 EF 
05 
00000000G_ EF 
08 
000000846 EF 


50 


Routine Base: SCODE + O9EF1 


5¢ 
cocoppors EF 
BSFC CCF 


ibe-Sep-19 
Code 5-85-19 
44 , : 
44 4 
4G 4 
44 04 ; 
44 4 
44 409 
44 428 
44 420 
Ov 4oF 
00000064 PY OF " | 50$ 
bo000082 E DF o¢ 9 j 
by a 0444 
000000006 EF  9F 00446 51S: 
00000001 =«&F DF a3 
by a O43 
7FFFFFFE F DF 00459 52$: 
00000001 ar DF O45E 
boy 11 0046A 
O46¢ 53$: 
OOv 11 0046C 248: 
000000AcG FF 00 O4ge 5$: 
000000006 EF 00 0478 56$: 
000000006 EF 09 48 
000000006 Soy % 0495 
6 94 0049D 57S: 
000001006 FF D4 O49F 
sommes Ft Be 
50 % 0481 
30 9 0485 60S: 
Ov 11 004BA 
000000006 aa 1 aes 61$: 
000000006 cP 06 ac 
000000006 FF 91 abe 638: 
000000006 aa 06 o408 
aes 67$ 
5C 90 O04E8 68$ 
04 004EB 
0000 0000 
04 Hi 4 6 
Oo FB D 


4 
4 


995388 Peed ngaas ete et Tae ne 


SPREAD_LOW_HIGH 
47483646 
SPREAD_LOW_HIGH 


$ 

- aahaiaacaatte 
AB_OFFSET,RO 
PUT_VALUE, IDATACROJ 
IDATA+264 

N_LEVEL 
ATA+256,413 


gtaves6 We 


oUvoVvSe 
Sd 


RO VARIABLE_RECORDS 
ACTIVE_PRIMARY ,#5 
INPUT_NUMBER ,ACTIVE_AREA 
ACTIVE_PRIMARY ,#11 

INBUT NUMBER. IDATA+132 


POST_PROCESS RO 


QUERY, “M<> 

a4(R12) OFFSET 
OFFSET,QTAB OFFSET 
#0,PRE PROCESS 


3890 


3892 


EO 
vC 


nit 
04-000 Generated Code ME een TFRs 99:38:83 Nae ekdmGmaSteR FeGr“shcaeprAsK.Pas;1 28nr~ 


00 E9 0001 BLBC =—_—«aRO, 4S 
Ooy AF FB 15 2$ CALLS #0,THE QUESTION : 4271 
F4 000000006 EF : 1 BBS SYSSINPUT_ERROR, 2$ 
000000006 EF 9F 1 PUSHAB INPUT_DESC : 4275 
000090006 EF 1 €B 7 CALLS »STRSFREE1_DX 
EFI Shy : re : 4$: CALLS é P ST_PROCESS : 4282 
6 000000006 FF Bo 0 4 MOVL AB OFFSET RO : 4284 
FFEFFFFESGEF4 1 p MOVE #1, VBATA=11(R0J 
50 000000006 EF 90 00045 6$ MOVB UERY_FLAG, QUERY : 4289 
04 0004¢ RET + 4291 
; Routine Size: 77 bytes, Routine Base: SCODE + OA3DD 
0000 THE_QUESTION: : 4018 
0006 000 ,WORD @M<R2,R3> 
SE 10 C2 0000 SUBL2 4#16,SP 
F8 AD p4 000 CLRL 0 = BC FP) 
6D 9900000 G EF . 0008 MOVAB PASSHANDLER, (FP) 
29 000000006 FF p O00F cMPL QTAB_OFFSET #41 : 4025 
000000006 EF 01 45 $018 MOVB #1,MAIN_LEVEL : 4029 
000000006 EF 94 OOOTF CLRB MAIN_CTRLZ : 4030 
000000006 EF 94 00025 CLRB - CONTROL_ZEE_TYPED : 4031 
000000006 EF 94 00028 2$: CLRB = SYSSINPOT_ + 4038 
oovoono0000s pre Ft OPE 099 3 ali Sh tA a A eae : 3029 
00v000090006 EF 00 El o00e3 BBC #9. TERP*FULL PRONPT 5S : 4065 
49C2 CF 00 re D045 5$: CALLS #0,WRITE-QUESTION > 4049 
5C 000000006 EF 19 C5 00053 6$: MULL3 #25,QTAB OF FSET R12 + 4053 
50 FFFFFEEDGEF AC 20 90 a 0058 EXT 40.432, OTAB~2 5(R123,R0 
000v 0069 -DISPL 7$° — 
0900V 0068 “DISPL 26$ 
000V 006D <DISPL 46$ 
000V 00 F -DISPL 26$ 
000v 0071 “DISPL 46s 
00v 007 SDISPL 47$ 
000V 007 -DISPL 568 
000v 31 0007 W 57$ 
50 000000006 EF BO OO7A 7S: MOV. QTAB_OFFSET,RO : 4059 
FFFFFFBOGEF40 000000006 FF D 1 mova NULL STRING, SDATA-80CRO] 
00v000000006 0 €1 : C r) TAKE DEFAULTS..98 : 4061 
000001046 a be iste 1DATAs 3 
00v00000000G EF S| O90 9$: C #0, AUTO_TUNE,13 
8 000000006 ‘EF a O 5 A 108: BBC ¥ gAUTOLTUNE. .+ : 4073 
33334033 8F OF : PUSHAF #*F0.7 : 4075 
000000006 EF a AB re 6 CALLS " LIBSWAIT ‘ 
00v000000006_ EF £0 cB 13$: 88S iss PASSFV_INPUT,14$ > 4083 
— 0 FB O00¢ PUSHAD PASEEV IWOOT as 
oovepospoone EF 1 £0 3 14$: Bas #49, PASSFV_ INPUT, 16$ 
000000006 EF  9F 00000 PUSHAB PAS$FV_INPOT : 4087 


12 
16-Sep-1984 00:56: VAX-11 Pascal V2.4-277 Page 261 
ae 000 Generated Code G-Se0-1984 99:38:95 DISKSVMSMASTER: LEDF .SRCJEDFASK.PAS;1 (84) 
F 3 CALLS #1,PASSRESET2 
000000006 EF i ah i Sal 
PUSHL # 
cess ES AEN BEET 
weet os OOOFF 8F DD OOOFD 16$:  PUSHL #25 : 4092 
009 a9 G EF oF 1 : PUSHAB PASSFV_INPUT 
6 86 fF OOF 199 PUSHAB TEMP STRINGZS5 
000000006 EF 5S FB OO10F CALLS #3,PASS$READ STRING 
000000006 EF 9F 00116 SHAB PASSFV_INPUT 
000000006 EF i FB 0011 CALLS #1 BASSREADLNZ 
o8 AD O10E00FF 8F 5 1 5 VL. #17694975,- (FP) 3 4093 
F4 AD 000 00096 EF ee 91 : VAB TEMP STRING255,-12(FP) 
FO AD = 9F 001 PUSHAB -16(FP) 
70 PPPFFBOGEFLO SF So13p PUSHAG SDATRCBOEROS 
000000006 EF 02 FB 00144 ALLS #2 ,STRSTRIM 
90000 006 EF 9F 00148 PUSHAB INPUT _DESC : 4094 
- PEF PFBOCEF LO » tet PUSHAG gTAe aD rROS 
000000006 EF 02 FB 0015F LLS #2,LIBSSCOPY_DXxDXx 
00000014G EF 00000004G EF 00 0 166 L _ INPUT_DESC+4>PARAM BLOCK+20 : 4095 
000000106 EF 000000006 FF Re 8198 MOVZWL INPUT"DESC,PARAM_BLOCK+16 + 4096 
iaseontonaeranin oc 000000006 FP §P aE es CO SHAB eo puto Te. : A105 
2 DD 0018A PUSHL #2 ; 
HAB PASS$FV_OUTPUT 
000000006 EF a 5S Pe i CALS” oe PASSURI TE STRING 
000000006 EF  9F 0019 PUSHAB PASSFV_OUTPUT 
000000006 EF 0 FB 0019F CALLS #1,PASSWRITELN2 
03 000000006 EF 00 by £0 001A 20S: BBS t g JOURNAL ENABLED, .+3 : 4108 
50 000000006 _ EF 00 00181 MOVL § QTAB_OFFSET,RO : 4110 
50 FFFFFFBOGEF 40 i: 0188 nOVAQ SDATA~BOLROS .RO 
00v 1B 001C2 BLEQU 23$ 4 
7E 60 3¢ dice MOV ZL (RO) .~(SP) : 4112 
QTAB_OFFSET,R1 
2] OPP Pros cer as 4 09109 Byaa SDAP A POETS RI 
BI OF 0108 PUSHAB a(R) 
$b0000006 EE oF OOIES PUSHAB JOURNAL _FILE 
000000006 EF 5 FB SiEY CALLS PS PASSORITE_ STRING 
000000006 EF 9F TEE PUSHAB JOURNAL FILE 
000000006 EF nodty re IF CALLS #1 ,PAS QRITELN2 
nnn ; : Re iC RG TLL — 
0000v os RW 58$ 
rita: Bee Riba tie eoneg — 
50 p90g0b00¢ FF DO af Ls QTAB OFFSET .RO 
GEF DF PUSHAL IDATALRO 
000000006 EF Q Fe A Ls #3, NUMBER_INPUT me 


FASK 16-Sep-1984 VAX-i1 Pascal V e 262 EDI 
OL 800 Generated Code f-te Been 188s 99:88 :8s Nek UnGARE PERM Fete SacaeprasK.pas; 1 280) vod 
1 G EF OD 3 MOVL §QTAB_OFFSET,R1 
3} dooooo0cErs) 09 3h MOVL JPATALRI3 nf 
ee 
39 000000006 FF D1 0024 ‘(MPL «ss QTAB_OFFSET,#57 
Ov 1 4F BNEO 31$ ~ 
03 000001086 a p | cHPL yee #3 
96 A INCB. OR 
52 BA ; 31$: 8182 ROAR : 
00v00000013G_ EF E1 00261 BBC P gBDATAS19 36$ 
000000006 FF D3 69 TSTL se 6MENT_NUMBER 
Ov 1 0 of BEQL 6$ 
36 000000006 Soy 01 0 4 cHPL TAB. OFFSET, #54 
1 ss O27A TSTL = RY 
Oov 12 O027¢ BNEG  36$ 
> 96 0027 INCB. OR 
50 88 00280 36$:  BISB2 Re. a 
d0v 5 . 0 BLBS R0.45$ 
50 (94 (00 CLRB RO > 4168 
52 000000006 _ EF 19 ¢5 0 8 MULL3 #25,QTAB_OFFSET,R2 
51 FEFFFEFOGEFS 20 00 FC 0 30 CHEV Bis 0 AO TAB -266€R2),R1 
a SHES sos, 
51 FFFFFEFAGEF42 20 00 Et i Kb ; CMPY #0432 ,0TAB-2620R23,A1 
8 96 O02AC INCB ‘§ 
53 20 88 OO2ZAE 42$: B1SB2 RO.R3 
d0v £9 0 81 BLBC R3.45$ 
00 DD 00284 PUSHL #0 5 417% 
00 0D 00 Bs PUSHL #0 
00838038 4 BD 5 BA PUSHE #11763768 
000000006 EF 4 FB 00 C9 CALLS #4,LIBSSIGNAL 
0000v 31 (7 45$: BRW 58$ 
FFFFFEF2GEF4C  9F OO2CA 46$: | PUSHAB QTAB-270(R1 > 4185 
FFFFFEFIGEF4C  9F 00201 PUSHAB QTAB-271(R1 
FFFFFFO2GEF4C  9F 0 D8 PUSHAB QTAB-254(R1 
000000006 EF oe HA Bs CAS PA PARSE. TNeUT 
00v00000000G_ EF iy a EF 473: BBS 588 TO_TUNE,58$ : 4200 
O0v0 0006 EF 0 ES eo [oo a8 ASSFV_ INPUT, 50$ : 2399 
000000006 EF 9F OOOFF PUSHAB PASSFV_INPOT 
cov BHBSSHE RHE? oon, SASS ELFEN Gt 
000000006 EF FF ti "  PUSHAB Pastry INPOT : 4216 
000000006 EF 1 FB A CALLS #1 PASSRESET2 F aan 
1 Bie pe § se 
00838048 &8F OD PUSHL #11763787 
000000006 EF * 4 §B D CALLS #4,LIBSSIGNAL | 
| 


Ho 


; Routine Size: 892 bytes, 


; Routine Size: 36 bytes, 


; Routine Size: 36 bytes, 


000000206 E 


1 
Generated Code é 
00000000G EF 9F 4 
00G EF 5 F A 
ooveooo000Kg EF a et i 
00000000G_ EF 1 re F 
Ov 11 O08 
v 11 
QA22 CF 9 Fe & 
00v E F 
dD 2 
3 Si 
00838038 F OD § 
00000000G_ EF 4 FB 4 
00000000G EF 94 
04 00378 
Routine Base: SCODE + OA42A 
00000 
0000 00000 
QOOOOOO1E 8F OF Boog 
A3DD—séC'F 1 FB 0000 
00v 0 €9 Beate 
00000038 a DF 00010 
A30D_—=sCC'F 1 FB 00016 
00v 11 00018 
QOOOOOECG EF 04 oy 
04 0002 
Routine Base: S$CODE + OA7A6 
60008 
0000 0000 
00000018 8F OF 0000 
A3DD f 9} 4 0 
00v 0 €9 00000 
0000002E 8F ODF 00010 
A3DD_—s«sCF 01 FB 00016 
00v 11 00018 
00000088G_ EF BS Bea8 
4 0002 
Routine Base: $SCODE + OA7CA 
000: 
0000 
00000013 F ODF 
A3DD f 1 8 
0 € 
00000010 F OOF 19 
A3DD_—séCF 1 + 1 
PY St 
be 00028 


12 
-Sep-1984 VAX-11 Pa 
~30071882 99:38:93 basa 
52$: PUSHAB PASSFV_INPUT 
CALLS #1 PASSREADLND, 
BBC #0, JOURNAL_ENABLED, 58$ 
PUSHAB J URNA FICE 
CALLS #1,PASS$SQRITELN2 
BRB § 
Hee BRB $ 
8$: CALLS #0, VERIFY PROCESS 
BLBS RO,60$ 
PUSHL # 
PUSHL # 
PUSHL # 
PUSHL #11763768 
CALLS #4,LIBSSIGNAL 
608: CLRB =‘ TEMP_FULL_PROMPT 
RET 
ASK_KEY_DUPS: 
.WORD “M<> 
PUSHAL #30 
ALLS #1,QUERY 
LBC 3$ 
PUSHAL #59 
CALLS #1,QUERY 
BRB 
3$: CLRL IDATA+236 
4$: RET 
ASK_GLOBAL_WANTED: 
.WORD “M<> 
PUSHAL #27 
CALLS #1,QUERY 
LBC =—sdO, 38 
PUSHAL #4 
CALLS #1,QUERY 
BRB 
3$: CLRL IDATA+184 
4$: RET 
ASK_KEY_COMP 
~ WORD “M<> 
PUSHAL #19 
CALLS #1 QUERY 
LBC —Os«éiRkO, 3 
PUSHAL #1 
CALLS #1, QUERY 
3: CLRF RDATA+32 


al i fh 4 
ASTER: LEDF .SRCJEDFASK.PAS; ° t &) 
; 4221 


e 263 


: 4885 


a tl 
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; Routine Size: 36 bytes, Routine Base: SCODE + OA7EE 


ASK _REC_COMP: 3; 4529 
0000 .WORD “M<> 
00000014 BF ODF PUSHAL #20 : 4536 
A3DD gf 1 FB CALLS @# QUERY 
Ov 0 € b LBC —OséRO.3 
00000011 F DF 0001 PUSHAL # : 4538 
A3DD Ss F k re 16 CALLS #1, QUERY 
000000246 EF b4 0 1 3$: CLRF § RDATA+36 : 4542 
4 00023 4$: RET + 4544 
; Routine Size: 36 bytes, Routine Base: SCODE + 0A812 
8000 ASK_IDX_COMP: 3: 4593 
0000 0000 .WORD “M<> 
00000015 8F OF 909 PUSHAL #21 : 4600 
A3DD—sCF 1 FB 6 CALLS #1 QUERY 
V 0 €9 0000D BLBC =—E_—soWRO,, 3 
00000012 BF oO 9010 PUSHAL #1 : 4602 
A3DD—sCF 1 FB 00016 S #1,QUERY 
Ov 11 00018 
000000286 EF 04 90010 3$: CLRF § RDATA+40 : 4606 
04 00023 4$: RET : 4608 
; Routine Size: 36 bytes, Routine Base: SCODE + 0A836 
0000 ASK_MEAN_RECORD_SIZE: : 4655 
0000 9009 “WORD ~“M<> 
00v00000000G_ EF 99 E1 0000 BBC #0, 1ISAM_ORG,4$ : 4663 
00v00000000G_ «EF 0 £1 0000A BBC #0, 1SAM ORG, 38 
000000846 4 % Oo18 iste IDATA+13 
OOVOO00002FG EF 8 E O01 3$: BBS “9 VDATA+47,13$ 
0000003A  8F OF é 4$: PUSHAL #58 : 4676 
A3DD_SséCF 1 FB 00 CALLS #1,QUERY 
OF 000001006 EF 01 00020 CMPL IDATA*256,415 : 4685 
Ov 12 00034 EQ $ 
00000028 8F oF 99 PUSHAL #4 : 4687 
A3DD_—SsCCF 1 FB 003¢ CALLS #1,QUERY 
00v000000006_ EF 0 € 9041 8 ¢ #0, VARIABLE_RECORDS,11$ : 4689 
00000039 8F OF 9 PUSHAL + 4691 
A3DD ss F & re f CALLS #1 QUERY 
QO0000E4G EF O00000E8G EF bo 086 11$ MOVL IDATA+232, IDATA+228 : 4695 
4 00061 13$ RET : 4699 
3; Routine Size: 98 bytes, Routine Base: SCODE + OA8SA 
ASK_KEY_SIZE: : 4747 
0009 .WORD “M<> 
00v00000013G_ EF 00 € #0, BDATA+19,10$ : 4754 
999000006 F D4 A CLRL  SEGMENT_NUMBER : 47 
F ODF 0 28: PUSHAL # : 476 
A3DDsCCF 1 FB 16 CALLS #1,QUERY 
000000006 EF oD 1B SEGMENT _NUMBER : 4764 


F 12 
EDFASK 16-Sep-1984 00:56: VAK=11 Pascal V2.4-277 Page 265 
104-000 Generated Code Baten Re 8:8 8s Prd ncaRe Pha Fesr Saczeprask.pas: 1° 700 
000000086 EF ps 90024 TstL  DATAS216 
07 00000006 EF HPL GMENT_NUMBER, #7 
00000086 FF ss: TSTL [ataezi6 + 4768 
59 000000006 EF A MOV. _SEGHENT_NUMBER, RO : 4772 
~ bv fe Goes Beta BE" 
. 00000000GEF 4! i § : CLRB SEGMENT WANTEDLIJ 3 4774 
0000086 EF 000000006 FF pd 32 9: MOV” SEGHENT_LENGTH, IDATA*216 : 4778 
00000036 8F DF 00061 108: PUSHAL #54 
A3DD CF 1 FB 00067 CALLS #1 ,QUERY 
04 0006C 128: ——RET + 4786 


; Routine Size: 109 bytes, Routine Base: SCODE + OA8BC 


0000 ASK_KEY_POSITION: : 4834 
0000 5909 .WORD “M<> 
00v00000013G_ EF 90 E! 9002 BBC #0 BDATA+19,6$ : 4838 
000000006 EF 5c 0 990¢ 2$: MOVL oe eau NUMBER 
0 000000006 EF 00 0001 MOVL ENT_NUMBER,R : 4846 
00v00000000GEF 40 ranean 9 e| Oot, BBC #0, SEGMENT_WANTEDCROI,5$ es 
A3DDsCF 91 FB 09 9 CALLS #1,QUERY ’ 
5¢ 7 300 : 5$ AOBLEQ #7.R12,2$ 
000000CCG EF 000000006 4 06 90 : MOVL SEGMENT POSITION, IDATA+204 : 4852 
00000033 8F OF O003F 6$ PUSHAL #51 : 4858 
A3DDsCCF 1 §B 90045 CALLS #1,QUERY 
04 0004A 8$ RET : 4860 
; Routine Size: 75 bytes, Routine Base: SCODE + 0A929 
9 0 ASK_TEST_SECONDARY: : 4909 
0000 : aM<> 
gov AF 0 FB 2 1$: CALLS #0, THE QUESTION ; 6003 
F4 000000006 EF 0 3 3 BBS #0,SYSSINPUT_ERROR, 1$ 
000000006 Ff f E PUSHAB INPUT_DESC : 6007 
000000006 EF ‘Ea. 91 CALLS #1,STRSFREE1_Dx 
0 18 RET : 6009 
3; Routine Size: 28 bytes, Routine Base: SCODE + 0A974 
THE_QUESTION: : 4911 
0 WO “M<> 
5E 10 ¢ SUBL2  #16,SP 
F8 AD p CLRL. 0s = BC FP) 
6D G EF : V PASSHANDLER, (FP) 
G EF F CLRL EDF S$GL_SECNUM ; 491g 
G EF 94 00015 CLRB SYSSINBUT _ERROR : 491 
FB AD G EF 9€ 18 V SYSSINPUT-COND_HANDLER,FP-8 ; 4920 
50 G EF 9A 0002 MOVZBL ACTIVE_PRIMARY;RO : 49 


° e . oa 
= 
~ 
4 = 


Generated Code iEHe9Bs QU:HE:GS YAEL Tat Be672Ueeorase. past" 282M 


OE 01 0 8F A CASEB M1 AG 
v -DISPL 
DISPL 
v SDISPL 15$ 
V DISPL 168 
v 6 DISPL } $ 
V “DISPL 29$ 
V A SDISPL 41$ 
v C <DISPL 53$ 
V “DISPL 1 
V *DISPL 6 $ 
v SDISPL 77$ 
V *DISPL 898 
V 6 SDISPL 101$ 
00V <DISPL 113$ 
0 V O4A *DISPL 3s 
000000006 ts Hy ber 1$ Orel NPUT. VALUE 4926 
0050v if 0055 BRW 26$ F 
000000006 wok ps 0038 2$: CLRL INPUT _VALUE : 4930 
03 000000006 EF 98) 59 096 3$: BBs iF FULL_CHOICE,.+3 : 4936 
00000000 8F ODF 006 PUSHAL #0 : 4940 
9000000 EF 1 FB 00 CALLS CLEAR 
9ov900 titdatts EF 0 £0 0007 BBS Ag rit _PROM s 4942 
BBS #0, TEMP~FULL ° SiPT.. 
000000006: EF a 0 6 1 BBS 0, a8 +3 
000000006 FF 5F 008¢ 6$: PUSHAB SHIFT 5 4946 
4 0D 0009 PUSHL # 
000000006 f 9F 00094 PUSHAB PASS$FV_OUT 
000000006 EF FB OOO9A CALLS #3 PASSURITE. _STRING 
FFFF8365 FF 9F OO0A1 PUSHAB (.AOE 
pp OOA7 PUSHL @# 
000000006 cF F QOOA9 PUSHAB PASSFV 
000000006 EF 3 FB OOOAF CALLS #3 PASSURLTE, _STRING 
000000006 EF 9F 00086 PUSHAB ANSI_REVERSE~ 
4 pp 00BC PUSHL #4 
000000006 FF F E PUSHAB Se csry 
000000006 EF 3 FB 000C4 CALLS #3 SASSOnITE. _STRING 
FFFFS33F i 9F 000CB PUSHAB C.AOF 
D DD 1 PUSHL #7 
000000006 FF F PUSHAB PASSFV 
000000006 EF 3 «FB CALLS #3 PASSURITE, _STRING 
000000006 FF oF E PUSHAB S 
000000006 FF F 8 PUSHAB ee 
000000006 EF 3 FB : CALLS #3 PASSURITE, _STRING 
000000006 FF OF PUSHAB ANSI_RESET 
4 pp B PUSHL #4 
000000006 FF F 2 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB CALLS a3. PASSURITE _STRING 
000000006 Fe oF A BUSHAB CR 
000000006 FE F ; PUSHAB PASSE OUTPUT 
000000006 EF 3 FB CALLS # SPASSURITE. STRING 
000000006 EF 9F F PUSHAB CRLF_SHIFT 


$$ $__$__ Teel 


ED 
We 56:05  VAX=11_ Pascal V2.4-277 «page 172805207 , 
"BrRep=198 13:35:50 DiSKSVMSMASTER: EDF SRCIEDFASK.PAS; 
E al + Generated Code ~Sep=1 ing 
= 06 BD 00188 PUSHAB PASSFY OUTPUT 
senees mF 0 CALLS, #3, PASSURITE. STRING 
000000006 EF anes OF GB B0IG0 PUSHAB C hos 
ca i0 BP goiae PUSHAB PASSFV_ OUTPUT 
ee CALLS #3,PASSWRITE_STRING 
000000006 EF Arnone OF bE O018 PUSHAB CRLF_SHIFT 
a Og BD oes PUSHAB PASSFV_OUTPUT 
ws ee CALLS #3, PASSWRITE_STRING 
oooo000s EF = «03 B01 é BUSHAB  ¢.AOH 
it BP BOr8 PUSHAB PASSFV_ OUTPUT 
000000006 FF F } 6 CALLS #3,PASSWRITE_STRING 
000000006 EF ong OF fe 105 PUSHAB CRLF SHIFT 
06 BD ate PUSHAB PASSFV_OUTPUT 
we Se a CALLS #3, PASSWRITE_STRING 
oooooo00s EF «Of EB O18 PUSHAB  ¢-A0l 
= BP OS to8 PUSHAB PASSFV OUTPUT 
000000006 FF oF O81? CALLS #3,PASSWRITE_STRING 
COOOOOONS EF ncon00ds FF oF Boise PUSHAB CRLF. SHIFT 
ain ¢ 0 a PUSHAB PASSFV_OUTPUT 
wun Ut Tr CALLS #3, PASSWRITE_STRING 
000000006 EF ia, oF §8 oie PUSHAB ¢-AoJ 
C pd 0018 PUSHAB PASSFV_OUTPUT 
ee Se CALLS #3,PASSWRITE_STRING 
sipempanoen: x 00s FF 9F oole? PUSHAB CRLF_SHIFT 
sooooooge oF BP OBtee PUSHAB PASSFV_OUTPUT 
eooseees Be ric CALLS. #3, PASSURITE. STRING 
eF ; SP opie? PUSHAB C.AO 
000000006 EF eFFB276 EF OF OOIDe SHAB CoA 
er OF oogs PUSHAB PASSFV_ OUTPUT 
eoccceees Ok ait CALLS #3, PASSWRITE_STRING 
000000006 EF 006 fF OF air PUSHAB CRLF _SHIFT 
semen BD Mire PUSHAB PASSFY_OUTPUT 
eoceseees Bh iaite CALLS #3, PASSWRITE_STRING 
000000006 EF gg, 08 £8 OOIrE PUsHAB C-AOL 
sa io BP a PUSHAB PASSF_ OUTPUT 
00006 EF 5F #3, PASSWRITE_STRING 
_— 63 FB 0051 CALLS #3, I 
900000006 FF 00000006 EF SF 051 PUSHAB CRLF _SHIF 
saa Hb oF PUSHAB PASSFY. OUTPUT ct 
000000006 FF FF CALLS #3,PASSWRITE_ST 
ooo0000s eF 8 (Os Fe PUSHAB C- AOR 
. oF pp PUSHAB PASSFY_OUTPUT 
one ae E CALLS #8 PASSURITE, STRING 
§ 
000000006 EF On fe oF Saaes PUSHAB CR 


S$ep-1984 VAX-11 Pascal V 268 
pees SEI AOE MMR hn 
000000006 9F 0024 PUSHAB PASSFV_OUT 
000000006 EF i FB $3 CALLS W3 PASSURIT T STRING 
000000006 EF 9F A PUSHAB Passe TPUT 
000000006 EF ogy i 9 CALLS ft gPASSURITELN2 
000000006" "et A 7$ PUSHAB SHIFT : 4969 
000000006 Fe P 2 PUSHAB PASSFV_OUTPUT 
000000006 EF soceainasl t fe 18 CALLS. ki PASEWRITE. STRING 
F 1) PUSH 
000000006 FF P ; PUSHAB PASSFV_OUTPUT 
00000000G_ EF 000000006 ; fe ? ste g; cas Suni Te STRING 
000000006 EF 1 £8 0 9A CALLS #1 SASSURT TELN2 
00000000 - si F 0 yy 9$ BUSHAL is : 4977 
900000 00G EF 1 F 6 AA CALLS a. CLEAR ; 
ov 0000 9006 EF 0 € 81 BBS *FULL_PROM : 4979 
000000006: EF 00d) th By BBS é' #0 TEN FULL PPROMPT,.¢ +3 
000000067 F 002C4 11$:  PUSHAB SHIFT : 4983 
pp CA PUSHL #4 
000000006 i F 002C PUSHAB PASSFY OUTPUT 
00000000G_ EF FREFSIAD ; fe 8 05 Suthie © : 5 PASSURITE, STRING 
coonooos fF SPS Fs Pl 
00000000G_ EF 000000006 gS fB 8 4 cothie BS PASSuRL TE. STRING 
sooooooce fe SP Rast PUR Re 
00000000G_ EF FFFF8187 Y fe 0 ff Suthie #5 PASSURITE STRING 
D 9 PUSHL #1 
000000006 FF P 6 B PUSHAB PASSFV_OUTPUT 
000000006 EF coameenall 3 Fe 0 i CALLS a3 PASSuRiTE, STRING 
soooooone, tf 2 Rees PUSH, ee 
00000000G_ EF 000000006 05 fe 6 pie f3 FASS TE. STRING 
rooonooce PEO IE PURe, Paseéy cuter 
00000000G_ EF 000000006 O§ 4 ; ais. 8 iF PASSURITE STRING 
coomnoos HF RP BEE FAB. Fane our 
000: 0G EF 000000006 O3 fe 9 cuttite rf mh tt STRING 
00000000G_ EF 1 FB D CALLS #1, PASSWRITELN2 
000000FC BF OéD PUSHL Hebe > 4990 
LBD pote PUSHE #4 
000000006 EF oF F PUSHAB $Y SSOUTPUT_NAME 
8 DD PUSHL #1 
DD 6 PUSHL 


12 
-S$ep-1984 00:56: VAX-11 Pascal V2.4-277 Page 259 
TOE 800 Generated Code 1B-Se0-1984 9038 es Pre caRe tea Y Pete cecaeprasx.pas:1 282) 
PUSHAB FDL_DEST 
oomn00s scones ft HIE tka fePaeepe™ 692 
000000006 EF Bi FR CALLS #1 PRESREWRITE2 . 
000000006 FF OF ; PUSHAB TEST + 499% 
0000006 EF 1 €B CALLS #1,SHOW_PRIMARY. SECTION 
- 000000006 EF 9F 0039F PUSHAB FDL. DEST : 49% 
000000006 EF i FB OO3AS CALLS #1. PASSCLOSE2 
000000006 +4 oF E 128: POSHAB hs ; 5002 
4 OD "BUSHEL ’ 
PUSH PASSFV_OUTPUT 
conoonos er Cmmronne SEF RR FEES FAL HTY run 
2 
: oovo0000. er VCs FE PE OO ass CALLS #3,PASSWRITE._ STRING 
000000006 FF OF 8 PUSHAB PASSFV_OUTPUT 
sagopa 000000006 fF fe 5 14$: sushae A + saat arin : 5006 
04 0D 8 PUSHL # 
PUSHAB PASSFV_OUTPUT 
000000006 EF Sa 05 fs 3 CALLS #3 PASSWRITE_STRING 
soooon0es BP Sat) EU BENT au 
oooo0000. er OVV0s FE PE Ootos CALLS #3, PASSUWRITE_ STRING 
000000006 EF i f PUSHAB ANSI_REVERSE 
PUSH, PASSFV_OUTPUT 
000000006 EF weet 03 fs D CALLS #3 PASSURITE, STRING 
cooomnee PERE BRS Hage wey 
000000006 EF eS: 0$ Fo ; CALLS #3, PASSWRITE, STRING 
comers HO REN Ba Haney ae 
000000006 EF wena 03 FB 00447 CALLS #3, PASSWRITE, STRING 
cooonoos $2 RE tha Hasey ner 
000000006 EF i Fo CALLS #3,PASSURITE, STRING faa 
G 
Fé AD 000000006 Er i gC ROvAS. EDFSAB_ACCESS_TABLE_STA,-12(FP) 
FO AD 00000006 cr 9E 00477 ROVAB EDESAB_ ACCESS, TABLE KEY, -16(FP) 
000000006 EF ootty 58 90482 CALLS #6, BARSE_INPUT 
000000006, FF 4 158: CURL ENPUT VALUE : 5099 
000000006 EF 04 16$:  CLRL —_—«INPUT_VALUE : 5103 
of § B0cse 178: Bee AB’ FULL CHOICE. .#3 : $109 
03 000000006 _ EF ogg $9 GQnge 178: BBS aD FULL Me 


K 12 
EDFASK 16-Sep-1984 00:56: VAX=-11 Pascal V2.4-277 Page 270 EC 
Oe 800 Generated Code g- 900-1382 99:30:93 TT EKSUNSRASTER FEDF -GRCJEDFASK.PAS:1 (82) ve 
00000000 8F DF 004A9 PUSHAL 40 : 5113 
0 0 006 EF 1 FB OOGAF CALLS #1,CLEAR 
gov G EF EO 00486 BBS #0, FULL_PROMPT ,20$ : 5115 
03 000000006 EF 00 Ny ifs BBS H gTEMPLFULL PROMPT. .+3 
000000006 FF F 004C9 20$: | PUSHAB SHIFT 3 5119 
4 pp OCF PUSHL 
000000006 Ff F 00401 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 00407 CALLS #3,PASSWRITE_STRING 
FFFF7FES ai 9F 004DE PUSHAB C.AOS 
2 po EG PUSHL 
000000006 FF F 004E6 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB O04E CALLS #3,PASSWRITE_STRING 
000000006 cf OF OO4F PUSHAB ANSI_REVERSE 
4 po 4F PUSHL # 
000000006 FF F 004FB PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 0501 CALLS #3,PASSWRITE_STRING 
FFEFF7FC2 FF 9F 00508 PUSHAB (.AOT 
c pp 00508 PUSHL #i2 
000000006 FF F 0051 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 00516 CALLS #3,PASSWRITE_STRING 
000000006 EF 9F O10 PUSHAB ACTIVE_AREA 
000000006 EF 1 FB 005 CALLS #1,NUM~L 
0 DD 0052A PUSHL RO 
000000006 EF DD 005 PUSHL ACTIVE_AREA 
000000006 FF 9F 005 PUSHAB PASS$FV~OUTPUT 
000000006 EF 3 FB 005 CALLS #3,PASSWRITE_INTEGER 
000000006 FF 9F 0053F PUSHAB SEC_ATIR 
6 0D 00545 PUSHL 
000000006 ai 9F 00547 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 0054D CALLS #3,PASSWRITE_STRING 
000000006 cf 9F 00554 PUSHAB ANSI_RESET 
4 pp 055A PUSHL 
000000006 FF F 005 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 0056 CALLS #3,PASSWRITE_STRING 
000000006 ai 9F 0056 PUSHAB CRLF 
2 oD O56F PUSHL &# 
000000006 EF 9F 00571 PUSHAB PASSFV_OUTPUT 
000000006 EF 3  €B 00577 CALLS #3,PASSWRITE_STRING 
000000006 Fe oF Oa7E PUSHAB CRLF SHIFT 
000000006 ai or 586 PUSHAB PASSFV_OUTPUT 
000000006 EF ate 3 Fe CALLS #5 PASSURITE_STRING 
iS bb 9 PUSHL #18 
000000006 FF F 8 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 €B OO5A CALLS #3,PASSWRITE_STRING 
000000006 FF oF Ag BUSHAB CRLF_SHIFT 
000000006 ai P 80 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 €B 0058 CALLS #3,PASSWRITE_STRING 
FFFF7F2D Ff 9F 0058 PUSHAB (.AOV 
A pp C PUSHL #26 
000000006 FF F 005¢ PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB 005¢ CALLS #3,PASSWRITE_STRING 
000000006 Ff 9F 005D PUSHAB CRLF_SHIFT 
6 0d 005d PUSHL #6 
| 
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000000006 9F 00SDA PUSHAB PASS$FV_OUTPUT 
000000006 ‘EF 5S FB EQ CALLS #3,PASSWRITE_STRING 
FFEFF TE VF Fe 3 E/ PUSHAB ¢ c io 
000000006 ai oF EF PUSHAB FiSsty OUTPU 
000000006 EF ene: f fe i CALLS. 3 rPASSURLTE, STRING 
6 oD PUSHL 
000000006 FF BF he PUSHAB + oe UTPUT 
000000006 EF 3 FB 0060A CALLS #3 PASSURITE _STRING 
FFEFF7FO9 FE si} PUSHAB ¢ Ax 
000000006 ai oF 19 PUSHAB PASSFV_OUTP 
000000006 EF annie i Fe 2H CALLS #3, 5 PASSURLTE. STRING 
6 oD C PUSHL 
000000006 ai OF 0062E PUSHAB PASSE ouTP 
000000006 EF 3 FB 06 4 CALLS S PASSURITE. STRING 
rrrTers Fh fo daeat BUR fat 
000000006 EF  9F 00643 PUSHAB PASSFV_OUTPUT 
000000006 EF 6S FB 00649 CALLS” @ 3 -PASSURITE, STRING 
000000006 EF ar 0630 PUSHAB tries 
000000006 ai OF re PUSHAB PASSFV_OUTPUT 
000000006 _ EF 3 FB 0656 CALLS 4#3,PASSWRITE_STRING 
FFFF7EE1 EF  9F 0066 PUSHAB (C.A0Z 
11 DD 00668 PUSHL #1 
000000006 a OF 0660 PUSHAB PASSTV 0 
000000006 EF 3 FB 0067 CALLS 3 -PASSURITE, _STRING 
000000006 EF oF 067A PUSHAB tRirs 
000000006 ai er O6k PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 0068 CALLS #3,PASSWRITE_STRING 
ieee tae USHA® CAPA 
000000006 ai oP 697 PUSHAB PASSFV OUTPUT 
000000006 EF 3 FB 0069D CALLS #3, PASSuRITE _STRING 
000000006 cf oF O6A4 PUSHAB CRLF _SHIFT 
000000006 ai ep 06A PUSHAB PASSFV_OUTPUT 
000000006 EF ia er FB $39 CALLS #5 PASSURITE_ STRING 
F DD F PUSHL #1 
000000006 FF BP real PUSHAB PASSFV_OUTPUT 
000000006 EF ial i Fe i CALLS #53 3, PASSWRITE _STRING 
2 DD 0060 PUSHL ght 
000000006 FF P 6 PUSHAB PASSE OUTPUT 
000000006 EF 3 FB 0060 CALLS #3,PASSWRITE STRING 
000000006 EF 9F PUSHAB PA aesey OUTPUT 
000000006 EF A re E CALLS # ,PASSURITELN2 
000000006 FF 9F 006F2 21$:  PUSHAB SHIFT | : 5145 
4 po F PUSHL #4 
000000006 FE F OO6FA PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 00700 CALLS #3,PASSWRITE_STRING 
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000000006 Ff 9F 00707 PUSHAB @ FS. HINT 
F po 70D PUSHL # 
000000006 FF F OO70F PUSHAB PASSFY OUTPUT 
000000006 EF 3 €B 00715 CALLS 3 PASSURITE STRING 
000000006 EF 9F 0071 PUSHAB st TPUT 
000000006 EF a 4 fe f ; CALLS #]sPASSURITELN2 
00000000 8F ODF 007 $¢f: PUSHAL # : 5153 
990000006 EF 1 FB 007 CALLS #1,CLEAR 
gov 00000006 EF 0 £0 007 BBS #0; FULL_PROMPT ,25$ : 5155 
03 000000006 EF 00 by i fa BBS #0 , TEMP FULL_PROMPT, .+3 
000000006 FF F 0074C 25$:  PUSHAB SHIFT : 5159 
4 pp 075 PUSHL 
000000006 cf F O73 PUSHAB PAssty OUTPUT 
000000006 EF 3 FB 07 a CALLS #3,PASSWRITE_STRING 
FFEFF7E25 ce 9F 00761 PUSHAB t ty, 
2 0D 00767 PUSHL # 
000000006 EF 9F 00769 PUSHAB PAS$FV_OUTPUT 
000000006 EF 3 FB O76F CALLS #3 PASSURITE _STRING 
000000006 EF 9F 00776 PUSHAB ANSI. RSE~ 
4 OD ore PUSHL 
000000006 FF 9F 0077E PUSHAB Secery ouTP 
000000006 EF 3 FB 00784 CALLS #3, SASSURITE. _STRING 
FFFF7DFF EF 9F 00788 PUSHAB C.AP 
E pp 0791 PUSHL #14 
000000006 EF F 00793 PUSHAB PASSE OUTPUT 
000000006 EF 3 FB 00799 CALLS 5 ,PASSURITE _STRING 
000000006 EF 9F 007A0 PUSHAB Act IVE. 
000000006 EF 1 FB 00746 CALLS 
0 DD 007AD PUSHL 
000000006 EF DD OO7AE PUSHL ACTIVE_A 
000000006 FF 9F 00785 PUSHAB PASS$FV~OUT 
000000006 EF aaieniiel 03 FB afte CALLS a3,PA PASSURITE. INTEGER 
16 DD oe PUSHL 
000000006 ai OF OO7CA PUSHAB Selsey V_OUTPUT 
000000006 EF 3  £B 00700 CALLS #3 PASSURITE _STRING 
000000006 EF 9F 00707 PUSHAB ANSI_RESET 
4 pp 9700 PUSHL 
000000006 ef F OO7DF PUSHAB PASSFV_OUTPUT 
000000006 ‘EF NE: 2 FB qE5 CALLS 3 PASSURITE _STRING 
6p po re PUSHL gat 
000000006 ai F OO7F PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB OO7FA CALLS #3 PASSURITE STRING 
000000006 EF 9F 1 PUSHAB PASSFV_OUTPUT 
000000006 EF 1 €8 7 CALLS #1 SASSUNITELN2 
000000FC 8F ODD OE PUSHL Hse : 5168 
7 DD 0081 PUSHL @ 
4 0D 16 PUSHL #4 
000000006 EF 9F 0081 SHAB SYSSOUTPUT_NAME 
; DD 0081 PUSHL #11 
D PUSHL #1 
000000006 EF eeeaeeees fs 4 CALS” Hot PRESOPEN2 
000000006 EF 9F F PUSHAB FDL_DEST : 5170 
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000000006 EF 01 FB 5 CALLS #1,PASSREWRITE2 
000000006 Ff oF PUSHAB T $1 : 5172 
000000006 EF 1 §€8 CALLS #1,SHOW_PRIMARY_SECTION 
000000006 EF 9F PUSHAB FDL_DEST 3 5174 
000000006 EF i re at CALLS i] ,PASSCLOSE2 
000000006 FF oy 28 268 PUSHAB SHIFT : 5180 
4 po 5F PUSHL 
000000006 FF F 0086 PUSHAB PAssty OUTPUT 
000000006 EF cuane tr fe 6 CALLS ’ 5 PAS EURITE. STRING 
F DD PUSHL 
000000006 FF BP r PUSHAB PASSFY OUTPUT 
000000006 EF 3 FB 0087 CALLS 3 PASSURITE STRING 
000000006 Ff OF 0 ; PUSHAB PASSt UTPUT 
000000006 EF Ya" CALLS 1 PASSWRITELN2 
000000006 Ff 1% af 28$: PUSHAB Suir : 5184 
000000006 ai BP 33 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 0089D CALLS iS, ;PASSWRITE STRING 
rrvrers fo Aas BURNS GPE 
000000006 ai BP SBA PUSHAB PASSFV 0 TPUT 
000000006 EF 3 FB O86 CALLS 3 PASSURITE _STRING 
000000006 cf 9F 008B PUSHAB eerie AREA 
000000006 EF o1 FB OO8Br CALLS Ay NUR 
00000006 EF DD 008¢8 PUSHL ACTIVE AR 
00000006 ai OF OO8CE PUSHAB PASSFV 
000000006 EF 3 FB 00804 CALLS #3 PASSURITE. _INTEGER 
rrvrcce FF amet uae al 
000000006 EF oF O8E3 PUSHAB PASSFV_OUTPUT 
000000006 EF 03 FB 00869 CALLS #3 PASSURITE _STRING 
000000006 cf F O8F0 PUSHAB ANSI RE ERSE™ 
000000006 ai oF OBES PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OBFE CALLS #3,PASSWRITE_STRING 
tabi R'E PUSKAS APG 
000000006 ai OF 0900 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 0091 CALLS #3 PASSURITE _STRING 
000000006 FF oF iA PUSHAB ANSI_RESET 
000000006 cf BP rf ; PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 09 CALLS #3,PASSWRITE_STRING 
FFFF7C93 FF Hi 3 F PUSHAB ¢ APH 
000000006 EF 9F 009 ; SH PASTY OUTPUT 
000000006 EF 3 FB 0093p CALLS #3,PASSWRITE_STRING 
— F Hi gas PUSHAL : 5187 
F4 AD 000000 EF 9€ 0094 VAB EDE sag AREA_TABLE_STA,-12(FP) 
F4 AD OF 99 PUSHAB ~-12(FPY 
FO AD 000000096 EF 9E 009 VAB EDF SAB AREA_TABLE_KEY,-16(FP) 
FO AD 9F 0096 PUSHAB -16(FP 
000000006 EF 04 FB 0096 CALLS #4,PARSE_INPUT 


am 
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0000V 31 0096A W 126$ 
03 000000006 EF 00 8by §9 é8 29$ BBS AG FULL CHOICE, 63 : 5200 
00000000 8F DF 0097 PUSHAL #0 : 5204 
oovosspoooeg EF ) £9 one SaS’>  ROCFULL PROMPT, 32$ $206 
BB #0, TEMP-FULL_PROMPT, .+ 
88 000000006 EF corey § 9 BBS ‘ git » R 3 ; | 
000000006 FF F 00998 32$ PUSHAB SHIFT : 5210 
4 OD O99 PUSHL #4 
000000006 FF 9F 009A PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB O9A6 CALLS 4#3,PASSWRITE_STRING 
FFFF7C19 FF 9F 009A PUSHAB (.API 
2 DD 0098 PUSHL #2 
000000006 ai 9F 0098 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 0098 CALLS #3,PASSWRITE_STRING 
000000006 FF OF b99¢ PUSHAB ANSI_REVERSE 
4 0D 009¢ PUSHL # 
000000006 ai OF DO9CA PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 9900 CALLS #3,PASSWRITE_STRING 
FFFF7BF3 ai 9F 009D PUSHAB (C.APJ 
E 0D 0090D PUSHL #14 
000000006 ai 9F OO9DF _ PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 009E5 CALLS #3,PASSWRITE_STRING 
000000006 EF  9F O09EC PUSHAB SEC_ATIR 
16 DD 009F2 PUSHL 
000000006 ai OF O09F4 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB OOSFA CALLS #3,PASSWRITE_STRING 
000000006 EF 9F O0A01 PUSHAB ANSI_RESET 
4 DD OOA07 PUSHL 
000000006 EF  9F OOA09 PUSHAB PASSFV_OUTPUT 
000000006 EF 03 FB OOAOE CALLS #3,PASSWRITE_STRING 
000000006 ai 9F OOA16 PUSHAB CRLF 
2 OD OOAIC PUSHL 
000000006 EF 9F OOAIE PUSHAB PASS$FV_OUTPUT 
000000006 EF 03 FB OOA24 CALLS #3,PASSWRITE_STRING 
000000006 EF 9F O0A2B PUSHAB CRLF _SHIFT 
06 DD 00A31 PUSHL # 
000000006 EF 9F OOA33 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 00A39 CALLS #3,PASSWRITE_STRING 
FFFF7B9A cf 9F O0A40 PUSHAB (.APK 
4 pp OAdG PUSHL #36 
000000006 Fr F OOA4 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB AGE CALLS #3,PASSWRITE_STRING 
000000006 FF 9F OOA PUSHAB CRLF _SHIFT 
6 pp ASB PUSHL # 
000000006 FF F 3D PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OOA CALLS #3,PASSWRITE_STRING 
FFFF7B94 cf OF A PUSHAB C.APL 
A pp A PUSHL #42 
000000006 FF F OOA7 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OOA7 CALLS  #3,PASSWRITE_STRING 
000000006 FE OF OOA7E PUSHAB CRLF _SHIFT 
6 po 3 PUSHL #6 
000000006 ai F OOA PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OOASD CALLS #3,PASSWRITE_STRING 
FFFF7B96 EF  9F OOA94 PUSHAB (.APM 


13 
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000000006 fF oP Age PYSHAB PASSty OUTPUT 
00006 EF 3 FB Ais CALLS 5 -PASSURITE STRING 
angers 000000006 FF 5 Mag PUSHAB oe HIFT 
000000006 Fr F OOAB1 USHAB PAS$FV_OUTPUT 
OG EF 3 FB O00AB7 CALLS #3 PASSORITE _STRING 
mien FFFFTONG GE SF GABE she EAP 
000000006 EF  9F OOAC6 PUSHAB PASSFV_O 
F FB OOAC CALLS #3, PASSURITE, _STRING 
saosin Oh 000000006 i Abs PUSHAB ¢ CRLF _SHI 
00000006 EF 9F OOADB PUSHAB PASSEV OUTPUT 
000000006 EF nnaaagie BS FB OOAE1 CALLS 4#3,PASSWRITE_STRING 
ey OE Em pusHAB ¢ APO 
0000006 EF 9F OOAF PUSHAB PASSFV_O 
000000006: EF se i fe OAré CALLS #3, 5 PASSURLTE. STRING 
6 DD 0080 PUSHL 
0006 EF 9F itt PUSHAB PASS$FV_OUTPU 
000000006 EF — 5S FB 0080 CALLS #3 PASSORITE. _STRING 
FFFF7B94 cf 9F 0081 PUSHAB C.APP 
ooooo000c fF oF OOBTA PUSHAB PASSFV_OUTPUT 
00G EF 03 FB 00B20 CALLS #3, PASSURITE _STRING 
enceenniene 000000006 cf F f PUSHAB CRLF _SHIFT 
00000006 EF 9F OOB2F PUSHAB PASS$FV_OUTPUT 
000000006 EF . 6S FB 00B35 CALLS 3, SASSORITE _STRING 
rrrmone 3h Sage uate Ge 
0006 EF  9F 00B44 PUSHAB PASSFY 60 
000000006 EF — 6S FB Seca CALLS 3 -PASSURITE, _STRING 
000000006 EF oF 00851 PUSHAB tRir’s 
F 9F 00B59 PUSHAB PASSFV_OUTP 
000000006 EF unineme 5 FB O85 CALLS #3 PASSUNITE. _STRING 
rrerone ho ames ut Gg 
PUSHAB PASSFV_OUTPUT 
000000006 EF ene: G 4 peo CALLS” #8 PASSWRITE _STRING 
000000006 FF Hf au PUSHAB CRLF SHIFT 
PUSHAB PASSFV_OUTPUT 
000000006 EF shea 65 PB 3 att #3,PASSWRITE_STRING 
rrerone 6h Seep uae Gi 
SHAB PASS$FV_OUTPUT 
000000006 EF aneanees: 5 rp 69 Cats a3 PASSURITE _STRING 
cooooone fb Hats ute. tr. $ | 
fF 9F OOBA PUSHAB PASSFV 
000000006 EF cauniaete 6S FB OOBB CALLS #3 SASsunIT. _STRING | 
everraee” <i Seen pusnAs fir 
} 
| 
} 
| 
| 


} 
| 
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000000006 EF 9F O0BC PUSHAB PASS$FV_OUTPUT 
eset i 000000006 bs oP cs sushae oa pAgeee} TE .STRING 
D USHL 
56 D PUS “6 
000000006 FF F OOBD PUSHAB PASSFV_OUTPUT | 
000000006 EF reeenae : £8 DD CALLS #3 PASSURITE, STRING 
sooooc00e FF BP PORES PUSH Hee aun 
000000006 EF 5S FB 0 if CALLS #3,PASSWRITE_STRING 
000000006 FF 9F OOBF PUSHAB CRLF_SHIFT 
USHL 
6 0D OOBFF PUS #4 
000000006 FF F 00C01 PUSHAB PASS$FV_OUTPUT 
000000006 EF neon 3 FB 0 07 CALLS #3 PASSWAIT E_STRING 
5S DD 0 14 PUSHL #43 
000000006 Fr 9F 00C16 PUSHAB PASSFV_OUTPUT 
000000006 EF enn : FB 9 i CALLS a3 PASEURITE. STRING 
coonooos HE SPR FNS. aary ner 
000000006 EF 5S FB 00C31 CALLS #3,PASSWRITE_STRING 
FFFF7BAE cf 9F 00C38 PUSHAB (C.APW 
C DD 00 F PUSHL #44 
000000006 ai OF 00C4 PUSHAB PASSFV_O 
000000006 _ EF estes 3 FB 0 46 CALLS FS PASSuRITE, STRING 
56 DD 00 $3 PUSHL 
000000006 EF 9F 00C5 PUSHAB PASS$FV_OUTP 
000000006 _ EF 3 FB 00C5 CALLS #3, PASSORITE. _STRING 
FFFF7BBO EF 9F O0C6 PUSHAB C.APX 
000000006 or 8 gf PUSHAB PASSFY OUT 
000000006 _ EF 3 FB 00 19 CALLS #3, PASSURITE. _STRING 
000000006 EF 9F 00C7 PUSHAB CRLF _SHIFT 
6 pp 0C7D PUSHL 
000000006 EF 9F 0 7F PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 00C85 CALLS 4&3, PASSURITE _STRING 
FFFF7BAE EF 9F 00 8 PUSHAB (C.APY 
F oD 00 PUSHL #47 
000000006 ai 9F 00C9 PUSHAB PASSFV_O 
000000006 _ EF 3 FB OOC9A CALLS #3, PASSURITE, _STRING 
000000006 cf 9F OOCAI PUS CRLF_S 
6 po CA7 PUSHL 
000000006 ai F OOCA9 PUSHAB PASS$FV_OUTPU 
000000006 EF pense 3 FB CAF CALLS #5 PASSURITE, STRING 
gt bb CBC PUSHL #44 
000000006 ai F 00CB PUSHAB PASSFV_OUTPUT 
000000006 _ EF 3 FB OOCC CALLS #3. PASSURITE_STRING 
000000006 cf oF CC PUSHA CRLF_SHIFT 
000000006 FF BF cbs PUSHAB PASS$FV_OUTP 
000000006 EF 3 FB O0CD CALLS #3 se sour Te. _STRING 
FFFF7BB6 Ff OF OOCE PUSHAB 7 AQA 
8 po CE PUSHL #24 
000000006 EF 9F OOCE PUSHAB PASSFV_OUTPUT 


EC 
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ING 
FASK Generated Code 5 #3 -DASSURITE_STR 
vbe~600 0000006 EF cr OOF Gack PUSHAB ie 
00 000000006 FE D OOCFB pus PASSE OUTPUT RING 
0006 EF OF cr CALLS PASSWRITE ST 
00000 FF ime) D PUSHAB ore TPU 2 
000000006 EF A OS FB DOA the #}_PASSURITELN + $256 
000000006 EF oop if D1? : -BUSHAB SHIFT 
00006 EF 9F OODIA 338: — PUSHAB 
_— 64 BD 00D PUSHAB PASSFY OUTPUT. 
00006 F 8? Vy) CALLS fy PASSURITE -> 
00006 EF O5 OF OODSF PUSHAB QUES_HINT 
0000 000000006 FF REE PUSHAB Pe eeLeOaT rm 
000000006 EF 0030 cms Boe 
000000006 FF 900000006 } a ODGA CALLS. ie _PASSURITELN2 ; $262 
000000006 EF 0000v 31 302) $:  PUSHAL @ : 5264 
Re Siege 2s = Ce #i.CLEAR ; 
Sone Et 1 + 
83000000006 cF 0009 i Op} "8: ewe SHIFT 
ooooo000s EF —9F 0074 378: NN Rete 
0006 EF 9F goDre CALLS #3 -PASSURITE, STRING 
0006 EF OF 00089 PUSHAB ¢.AQB 
= FFF ees OS bb Oobar PUSHAB e ITE STRING 
00G EF 9F 00091 CALLS) #3 PASSURITE mS 
000000 3 FB 0097 PUSHAB ANSI_ ERSE~ 
000000006 EF oo nnog OF 5B 20097 PUSH ae 
000 fr 0D DAS PUSHAB » ed TRING 
0006 F oF DA6 CALLS #3 Hae Ha -? 
00s ep Be Bs PUSHAB  C-AaC 
ee 3) es eee 
0006 F oF OBB CALLS #3 PASSURITE 5 
ae 05 Fe Oo0cl PUSHAB SEC _ATT 
000000006 EF 000000006 ff Bp ote A ry aS ; . 
DD PASSURITE. STR N 
gp 000000006 FF OF 006 pushae #5 PASS 
psoo0enns FF 00000006 66 BD Oe PUSHAB PASSFV_OUTPUT TRING 
006 F gp DE CALLS o3 /DASSURI TES 
ae fe OF PUSHAB 
000000 000000006 be +4 of A PUSHAB Hae AA sswk I He STRING 
000000006 fe FB E pushae PA U N2 2 5275 
000000006 EF 0006 EF 9F O0E CALLS PASSURITEL : 
ooc er Om? F BD QOEI2 See i382 
tate women DD OOETC PUSHL #4 
4 O | 
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000000006 PUSHAB S1FSOUTPUT ne 


wo 
nn 


F £1 
fp DD OE 5 PUSHL 
D O0E $ PUSHL a 
000000006 FF F OOE PUSHAB FDL DEST 
000000006 EF 7 €B OOE : CALLS #7,PASSOPEN2 
000000006 FF 9F OOE PUSHAB FDL DEST : 5277 
enemas 000000006 } P Ede sushae #1 gb s rn : 5279 
sOmmnO88  seonosos f] SE Rett Rata fictmu une secrion 528 
000000006 EF 0 re £55 CALLS #1,PASSCLOSE2 ’ 
Ov } £5¢ BRB 40$ 
000000006 FF : E 38S: PUSHAB SHIFT : 5287 
000000006 FF er £66 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OOE CALLS #3 PASSUAITE _STRING 
000000006 FF 9F OE PUSHAB S_H 
000000006 F or OF 6 PUSHAB flo OUTPUT 
000000006 EF 5S FB OOE81 CALLS 3 PASSURITE STRING 
000000006 FF OF E88 PUSHAB ste UTPU 
ages. 000000006 : oF £55 40$ BushAB Ft PaSSURLTELN2 ; 5291 
000000006 ¢ or £38 PUSHAB PASSFV_OUTPUT 
000000006 EF 5S FB OEAS CALLS #3,PASSWRITE_STRING 
FFFF7A18 EF 9F QOEAA PUSHAB C.AQD 
000000006 é oP oes PUSHAB PASSFY OUTPU 
000000006 EF 3 FB OOEB CALLS #3 PASSURLTE, _STRING 
000000006 EF  9F OOEBF PUSHAB ANSI RSE~ 
000000006 ¢ P BEC? PUSHAB asi UTPUT 
000000006 EF 3 FB OOECD CALLS #3 PASSORITE STRING 
FFFF7A12 EF  9F OOED4 PUSHAB (,AQE 
000000006 ; 4 Ebe PUSHAB PASSF FV_OUTPUT 
000000006 EF 3 «FB Eee CALLS #3 PASSURITE _STRING 
000000006 FF 9F OOEE PUSHAB ANSI_RESET 
000000006 t er OE PUSHAB PASSFV_OUTPUT 
000000006 EF 65 FB OOEF7 CALLS #3,PASSWRITE_STRING 
FFFF79EC a4 oF Ere PUSHAB C AGF 
000000006 EF  9F OOF PUSHAB PASTY UTPUT 
000000006: EF 3 FB Hs CALLS SPASSURITE _STRING 
000000 F at BUSHAL ; : 5293 
Fe AD 0000006 EF ; ah ROVAB. EDESAB CONNECT. TABLE_STA,-12(FP) 
FO AD 000000006 EF se i q ROVAB, E EDF SAB CONNECT_TABLE_KEY,-16(FP) 
000000006 EF “A 4 re 2 CALLS ry PARSE. INPUT 
03 000000006 EF p 59 f ¢ 41$: BBS #0, FULL_CHOICE,.+3 > 5306 
0000v F BRW 47$ 
00000000 8F DF 00F47 PUSHAL #0 > 5310 
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K Code 
vOsbbo pt oe 1 FB QOF4D BaS> #O“FULL PROMPT, 448 Pts 
O0000¢ EF ED oor ec BBS , TEMP FULL. PROMPT, . #3 
3. G EF f Bru a8 ; 5316 
oop f SHAB SHIFT 
000000006 FF 9F GOFG7 44s: © BUSHAB SH 
+ «OP Saree PUSHAB PASSFV_OUTPUT 
eee Ie CALLS) #3 -PASSURITE, STRING 
000000006 _ EF FFFE7972 EF oF F? CUSHAB C.AQG — 
eeenetendl oF CALLS. #3 (PASSURITE _STRING 
000000006 EF aces ; fe : i PUSHAB ANSI_REVERSE™ 
enemas | BP Oors PUSHAB PASSFY_OUTP 
arene “a et CALLS, #3, PASSURITE. STRING 
000000006 EF auc fF 4B aA PUSHAB c-AQH 
OFAC 
000000006 FF oF Orbe CALLS, #3 PASSURITE, LSTRING 
000000006 EF o ncoe OF SB Bore PUSHAB SEC_ATTR 
a ig eee PUSHAB PASSFY OUTPUT 
wet Tat. CALLS #3 _PASSURITE, STRING 
000000006 EF osooog of Se aF00 cee ee “RES 
a 04 BP BOFDS PUSHAB PASSFV_ OUTPUT 
enmantec FR Ore CALLS. #3.PASSWRITE, STRING 
00000006 EF 4: PUSHAB 
: mooooone $F SPREE UES Hooaey ut 
Soneeaes Oh et CALLS #3, PASSURITE. “STRING 
000000006 EF secca HO teeth PUSHAB CRLF_S 
een Os op Ot PUSHAB PASSFV_OUTP 
mn CR TS CALLS #3 PASSURITE. STRING 
00000006 EF 100F PUSHAB 
: comes HORT Bia Hey avr 
000000006 63 FB O10I0 CALLS #3, 5 PASSURLTE. STRING 
000000006 EF EOF Gi0gh PUSHAB ages 
oe ae ae BF ; CALLS. #5 PASSURITE, STRING 
000000006 EF te Sr 1038 PUSHAB iif QJ me 
HAB 
000000006 EF 9F 01041 CALLS, #3, PASSURITE. STRING 
000000006 EF ; 6 PUSHAB CRLF_SHIFT 
sa rorore, 8 BD 1056 PUSHAB PRSSFV_OUTPUT 
eosoeenes oF, ninte CALLS #3, PASSWRITE_STRING 
o000000g eF a, Os £8 1 5 PUSHAB ¢-AaK 
cet 12 BD 2 PUSHAB PASSFY_OUTPUT 
commons HF SP HER, © Riba Srvene es 
000000006 EF rococo EF Ff 01078 PUSHAB CRLF _ 
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06 po 1 43 PUSHL #6 
000000006 Ff F 01 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 01086 CALLS #3,PASSWRITE_STRING 
FFFF78A5 FF 9F 01 PUSHAB (C.AQL 
0 pp 1 PUSHL #1 
000000006 FF F 01 PUSHAB PASS$FV_OUTPUT 
000000006 EF snesneee 3 fe i CALLS, “3, PASSURITE _STRING 
55 pp 10A PUSHL pa 
000000006 FF F O10AA PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 01 9 CALLS #3,PASSWRITE STRING 
000000006 EF 9F 01 PUSHAB PASSFV_OUTPUT 
000000006 EF 1 §B 010BD CALLS #1,PASSWRITELN2 
0000v 31 10¢4 BRW 52$ 
000000006 FF F 010C7 45$: | PUSHAB SHIFT : 5333 
4 pp 10€D PUSHL #4 
000000006 FF F O10CF PUSHAB PASSFV_OUTPUT 
000000006 EF ceieeiaiia ; FB 05 CALLS 8 PASSWRITE. STRING 
FF DD 19e8 PUSHL ; 
000000006 FF OF 01064 PUSHAB PASSF 
000000006 EF 3 «FB OEA CALLS #3 PASSURITE STRING 
000000006 cf OF O10F1 PUSHAB PASSF 
000000006 EF : O10F7 CALLS #1 SA SSUNITELN2 
0000v 31 O10FE BRW 52$ 
00000000 8F DF 01101 47$:  PUSHAL #@ : 5341 
00000006 EF 1 FB 1107 CALLS #1,CLEAR 
00v00000000G_ «EF 0 €0 0110€ BBS #0. FULL PROMPT, 49$ : 5343 
03 000000006: EF 00 8y i 1116 BBS #0. TEMP~FULL_PROMPT, .+3 
000000006 FF F 011 F 49$:  PUSHAB SHIFT : 5347 
4 DD 01127 PUSHL 
000000006 f 9F 01129 PUSHAB PASSFV_OUTPUT 
000000006 EF FB O112F CALLS #3,PASSWRITE_STRING 
FFFF780C FF 9F 01136 PUSHAB (.AQM 
DD 0113¢ PUSHL 
000000006 EF OF 0113E PUSHAB PASSFV_OUTP 
000000006 EF 3 FB 01144 CALLS #3 PASSURLTE, _STRING 
000000006 EF 9F 01148 PUSHAB ANSI_REVERSE~ 
4 pp 1151 PUSHL #4 
000000006 FF F 01153 PUSHAB O ssry UTPUT 
000000006 EF 3 FB 01159 CALLS #3, PASSORITE _STRING 
FFFF77E6 r oF 1160 PUSHAB C. AQN 
000000006 ai P 1188 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB 1166 CALLS #3 PASSWRITE, STRING 
000000006 FF 9F 011 PUSHAB SEC_ATT 
6 od 01178 PUSHL 
000000006 FF F 1170 PUSHAB PASSFV_OUTP PUT 
000000006 EF 3 FB 011 CALLS #3 PASS WRITE_STRING 
000000006 Ff ar 1 A PUSHAB ANSI _R SET 
000000006 EF 9F 011 PUSHAB PASSFV_OUTPUT 
000000006 EF 55 FB 0119 CALLS 43. "PASSURITE _STRING 
000000006 3 OF 01198 PUSHAB 
2 oD 145 PUSHL pat 
000000006 EF 9F O11A PUSHAB PAS$FV_OUTPUT 


3 


EDESAB DATE_TABLE_STA,-12(FP) 
EDFSAB_DATE_TABLE_KEY,-16(FP) 


1 
EDFASK Ig-8e -1984 256: VAX-11 Pascal V2.4-277 P 81 
Sen 800 Generated Code ~300n 138% 90:30:93 TP EKSUNSRASTER FEGF GR CJEDFASK.PAS:1 29¢ 2 
000000006 EF 03 FB O11AD CALLS #3,PASSWRITE_STRING 
000000006 EF 9F 01184 PUSHAB PASSFV_OUTPUT 
000000006 EF 1 €B 011BA CALLS #1, PASSWRITELN2 
000000F ¢ F DD cy BUSH #252 : 5354 
4 0D 011¢9 PUSHL #4 
000000006 EF P ¢ PUSHAB $y SSOUTPUT NAME 
tt ae 
000000006 Fe P D PUSHAB FDL DEST 
000000006 EF 7 §B 0110 CALLS #7,PASSOPEN2 
000000006 FF OF H PUSHAB FDL DEST : 5356 
000000006 EF 1 FB OIE CALLS #1, PASSREWRITE2 
000000006 Ff OF O11EF PUSHAB TEST : 5358 
000000006 EF 1 FB O11F5 CALLS #1,SHOW_PRIMARY_SECTION 
000000006 EF 9F O11F PUSHAB FDL : 5360 
000000006 EF Ot re 03 CALLS # ,PASSCLOSE2 
000000006 FF i 08 50S: PUSHAB SHIFT : 5366 
000000006 cE OF 01213 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 01219 CALLS #3,PASSWRITE_STRING 
000000006 FF Hi 0 BUSHAB S_HINT 
000000006 FF OF 8 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 «FB : CALLS #3,PASSWRITE STRING 
000000006 FF OF PUSHAB PASSFV_OUTPUT 
000000006 EF 1 §B CALLS #1,PASSWRITELN2 
000000006 cf oF 528: PUSHAB sulet : 5370 
000000006 FF OF A PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 9 CALLS #3,PASSWRITE_STRING 
FFFF76FF FF oF f PUSHAB ¢.AQ0 
000000006 FF OF F PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 5 CALLS #3,PASSWRITE_STRING 
000000006 cf oF PUSHAB ANSI REVERSE 
000000006 FF oP PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB A CALLS #3,PASSWRITE_STRING 
FFFF76FS aa ar } PUSHAB ¢ Aap 
000000006 EF er 9 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB F CALLS #3,PASSWRITE_STRING 
000000006 f Hi 6 BUSHAB ANSI_RESET 
000000006 EF er ; PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB CALLS #3,PASSWRITE_STRING 
FFFF76CF F oF PUSHAB ¢, Aaa 
000000006 EF P PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB CALLS #3,PASSWRITE_STRING 
~— F i PUSHAL ; 5372 
F4 AD 000000006 EF e VAB 
E 4 


F 
FO AD 00000000G EF 


13 
FA 1 VAX-11 Pascal V2.4-277 Page 282 
an tn Generated Code b- 3ee7) 382 99: 38: 3 PT KSUMGHASTER  FEDF-SRCJEDFASK.PAS: 1 (83) 
FO AD OOF C PUSHAB -16(FP) 
000000006 EF “ q re F CALLS #4, PARSE_INPUT 
03 000000006 EF 6 69 3 53$: BBS #0, FULL_CHOICE,.+3 : 5385 
0000v 1 BRW 59$ 
a Powerade Ea Fly CALS: #1 eCLEAR —_ 
go HERR See rage 339 
03 000000006 EF p 9 BBS ; TEMP FULL PPROMPT,.* +3 
0000v 31 01311 BRW 5 § 
000000006 f 14 56$: PUSHAB  § SHIFT : 5395 
000000006 EF BP 1 PUSHAB PASSFV OUTPUT 
000000006 EF 3 «FB CALLS #3,PASSWRITE_STRING 
FFFF7655 a ; PUSHAB ¢ C.AQR 
000000006 FF oF 1 PUSHAB PAssty OUTPUT 
000000006 EF 3 FB 7 CALLS 5 ,PASSURITE _STRING 
000000006 f E PUSHAB ANSI REV ERSE~ 
000000006 EF 9F 6 PUSHAB PASSFV 
000000006 EF 3 FB ‘ CALLS #3, SASSURITE. _STRING 
rrrrear FB Bee FARM ile 
F OOF PUSHAB PASS$FV_OUTPUT 
000000006 EF aetiebes 3 Ha ; CALLS. eg PASSURITE _STRING 
000000006 FF oF PUSHAB S 
F PUSH Sihasy 
000000006 EF seseenten 3 Pe 6 CALLS. a3 PASSURITE, _STRING 
000000006 f F PUSHAB ANSI_R 
000000006 EF 9F PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB CALLS 3. 7PASSURITE _STRING 
000000006 i ; PUSHAB ¢ 
000000006 EF 9F 0139A PUSHAB PASSF TPUT 
F 3 FB O13A CALLS 3. PASSURITE _STRING 
nari 000000006 F oF Ni PUSHAB  ¢ RLF_S 
000000006 EF 9F O13AF PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 5 CALLS #3,PASSWRITE_STRING 
ees: Bp cs PUSH. Hi 
000000006 EF 9F 013¢ PUSHAB OUTPUT 
000000006 EF 55 FB O13CA CALLS #8 PASSURITE. STRING 
000000006 Ff ep D| PUSHAB CRLF _SHIFT 
000006 EF 9F 01309 PUSHAB PASSFV_OUTPUT 
000000006 EF one 5S FB F CALLS #3,PASSWRITE_STRING 
FFFETSDG OF bb O1see PUSHAB hau 
000000006 ai 9? PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB OO13F CALLS #3,PASSWRITE_STRING 
000000006 Ff i FB PUSHAB CRLF _SHIFT 
000000006 EF 8? 85 PUSHAB PASSFV_OUTPUT 


EDF ASK -Sep-1984 00:56: VAX-11 Pascal V2.4-277 pP 3 El 
04-000 Generated Code - at 1 99:38:93 PE KSUMGaASTER  FEDFSRCIEDFASK.PAS: 1 29g 28 Vv 
000000006 EF 03 FB CALLS #3,PASSWRITE_STRING 
anovomeig £4 ane fatty 
000000006 EF 8p PUSHAB PASSFV_OUTPUT 
ssn 000000006 ; oP pushae ee 1 a alan | 
' 6 0D PUSHL #6 ~ | 
00000006 EF oP PUSHAB PASSFV_OUTPUT 
000000006 EF socernee 3 8 CALLS #5 ,PASSURITE STRING 
F OD PUSHL #47 
000000006 EF er PUSHAB PASS$FV_OUTPUT 
000000006 _ EF 3 «FB CALLS #3, PASSURITE. STRING 
000000006 f a PUSHAB CRLF_SHIFT 
000000006 EF oF PUSHAB PASS$FV_OUTPUT 
000000006 EF cenuuined : FB CALLS, #5 PASSURITE_STRING 
6 DD PUSHL #38 
000000006 EF 9F PUSHAB PASS$FV_OUTPUT 
00000000S_ EF 3 FB CALLS #3,PASSWRITE_STRING 
000000006 F oF PUSHAB CRLF SHIFT 
000000006 EF 9F PUSHAB PASSFV_OUTPUT 
000000006 EF niaienen : Fe CALLS #5 PASSURITE_STRING 
B oD PUSHL #43 
000000006 EF 9F PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB CALLS #3,PASSWRITE_STRING 
000000006 f ii PUSHAB CRLF SHIFT 
000000006 ai oF PUSHAB PASSFV_OUTPUT 
000000006 EF nanan 03 FB CALLS #5 PASSURITE_STRING 
1D DD PUSHL #29 
000000006 ai oF PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB CALLS #3,PASSWRITE_STRING 
000000006 FF oF PUSHAB CRLF_SHIFT 
000000006 EF 9F PUSHAB PASSFV_OUTPUT 
000000006: EF aiid 3 FB CALLS #5 PASSURITE, STRING 
B oD PUSHL #4 
000000006 _ EF er PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB CALLS #3,PASSWRITE_STRING 
000000006 f ar PUSHAB CRLF _SHIFT 
000000006 _ EF BP PUSHAB PASSFV_OUTPUT 
000000006 EF aia : FB CALLS #5 PASSURITE_STRING 
9 DD PUSHL #4 
000000006 EF er PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB CALLS #3,PASSWRITE_STRING 
000000006 Ff a PUSHAB CRLF_SHIFT 
000000006 FF 8° PUSHAB PASSFV_OUTPUT 
000000006 _ EF 3 «FB CALLS #3,PASSWRITE_STRING 


106-000 Generated Code "Se 99:38:93 DL SKSVMSHAS ttnv ber sh SRCJEDFASK.PAS;1 Page 78 


FFFF7SCC FF oF 01 PUSHAB (C.ARC 
coos ft HEE Bila Hfsry oe 
000000006 EF 5S FB 01 if CALLS #3, PASSURITE_STRING 
000000006 Fe s ; PUSHAB CRLF SHIFT 
00000006 EF 9F 01 PUSHAB PASS$FV_OUTPUT 
000000006 EF — BS FB 01 CALLS #3 PASSURITE _STRING 
rrvrsce Sy Bb Stage BUEN he 
000000006 EF 9F 01 PUSHAB PASSE OUTPUT 
000000006 EF " BS FB O1 ef CALLS 3 -PASSURITE STRING 
000000006 EF i 3 PUSHAB He 
000000006 EF 9F 0157 PUSHAB PASS$FV_OUTPUT 
000000006 EF 5S FB O01 8 CALLS #3,PASSWRITE_STRING 
mowmnes PORE Bite Hil 
000000006 EF 9F 01 $3 PUSHAB PASS$FV_OUTPUT 
000000006 EF , 5S FB 0159 CALLS 3 PASSURITE _STRING 
000000006 to gis BUR atts 
00000006 EF 9F 015A7 PUSHAB PASS$FV_OUTPUT 
000000006 EF — 5S FB 1enp CALLS #3,PASSWRITE_STRING 
FPrETCE OS bb O1SBA usnAs ¢,ARF 
0000006 EF 9F 0158C PUSHAB PASSE V0 
000000006 EF - 65 FB 13¢8 CALLS 5 PASSURLTE. _STRING 
000000006 pe Sige = uae 
0000006 EF 9F 01501 PUSHAB Sessry OUTP' 
000000006 EF ” 03 FB 01507 CALLS #3, DASSURITE. _STRING 
rrvrsoe ho gee RUEMNeS 
0000006 EF 9F 01566 PUSHAB PASSFV_OUTPUT 
000000006 EF wane 5S FB 13EC CALLS “3. PASSURITE _STRING 
cooconone feeb niae = puaw® Ge 
F OF 015FB PUSHAB PASSFV_OUTPUT 
000000006 EF nanan: 65 FB 01601 CALLS #3,PASSWRITE_STRING 
rrrTson hm Sige ue fh 
000 F 9F 0161 PUSHAB PASSFV 60 
000000006 EF enuseuens 6S FB 1616 CALLS #8 PASSURITE, STRING 
000000006 FF Hi 1638 PUSHAB cRLF S$ 
F 9F 016 PUSHAB PASS$FV_OUTPUT 
000000006 EF senmnnnte bs FB 16 CALLS #3 PASSORITE _STRING 
ree tH wane 
PASSFV 
000000006 EF seneeeen: 5S rp i Q CALLS” a3, PASSURITE, _STRING 
000000006 ef 1640 PUSHAB CRLF_SHIFT 
000000006 Ff F O164F PUSHAB PASSFV_OUTPUT 
F 3 FB 01655 CALLS #3 SASSURITE _STRING 
penenaeen tt FFFF7SE2 EF 9F 188e PUSHAB C.ARJ 


285 
lve. mire 
16-Sep-1984 19:38:93) DEEKSUNSMASTER EDF GRCIEDFASK PAS; 1 
d Code B01 4 13:59: 
2 he B Generate - 5 01 2 PUSH ore oy OUTPUT 
0G EF OF 1 CALLS #3, PASSURITE. STRING 
i ae 1998 BUSHAB CRLF SHIFT 
00000000 000000006 BF OF Ot ert at, Se 
0006 EF OF i679 CALLS. #3 ,PASSWRITE_STRING 
wanna Es PUSHAB C. ARK 
000000006 EF FFF7SER Be Oe bene PUSHAB PASSE. OUTPUT 
0 FE OF Ores CALLS” #3 PASSURLTE STRING 
ooo00006 FF 9F 168 BUSHAB CRLF. SH 
000000006 EF 000000006 BE OF 01698 PUSHL sey ov 
000000006 ee 1649 CALLS, #3, PASSURITE. STRING 
3 «FB O01 CARL 
000000006 EF bb 163¢ PUSH SASSEY_OUTPU 
ooooo00es FE 9 188 CALLS fac SPASSURITE. STRING 
00000000G_ EF 00G EF 9F 016C PUSHL 
coon aft a coo ee 
3 FB 0160 Pass 
000000006 EF oo nooe EF 9F O16DA Try #1 PASSWRITELN2  enet 
womans SHEE sng, Hin tbe 
00006 PUSH 
a 04 oF 18Fe PUSHAB PasBev<guTPuT STRING 
ooooo000s FF © 9F O16F Sikhs QUES MINT 
pooon0ens FF ooo0000s EF oF 1865 PUSHL OUTPUT 
00000006 EF 9 01707 CALLS. #5;PASSWRITE. STRING 
006 EF. is fp Fie cars, ot ASE OUTPUT 
000000 000000006 EF 9F 01714 CALS #), Dtesie 
000000006 EF oooov 31 Oi7e) BRU #0 CLEAR, ; 5452 
00000000 = 8F 4 172A CALLS oh FULL PROMPT, s 
ase DBE RIES ree 
00000 0 & 
iMtddiitddts EF 00 Ov 5 5) 618: PUSHAB SHIFT 
0006 PU 
sea 04 BF otrae CALLS. #3, PASSURITE. STRING 
oo000006 FF OF O17 ; CALLS, #5 ,PA 
nn 2a eegetuen bo ob Ife PUSHAB PASSFY_OUTPUT 
00006 OF O1re1 Cures ge PASSWRITE_ STRING 
0000 AE Oe Olver PUSHAB ANSI_REVERSE~ 
900000006 FF soo00006 FF OF 1796 PUSHL HG 
06 FF OF O1P76 PUSHA PASS oueut _STRING 
” 0000000 3 FB 1783 PUSH CARN 
eoenenees SF eese7ees 4 op 1789 PUSHAB PASSFV_OUTPUT | 
000000006 EF 9F O17 i! 


N13 
EDF ASK 16-Sep-1984 00:56: VAX-11 Pascal V2.4-277 Page 286 
S800 Generated Code LaF 99:38:93 DT EKSUMSRASTER FEOF SR CJEDFASK.PAS:1 (8%) 
000000006 EF 03 FB 01791 CALLS 63 PASSWRITE_STRING 
000000006 FE 9F 01798 PUSHAB wi be 
6 pp 7 : PUSHL 
000000006 ai F OI7A PUSHAB PASS$FV_OUTP 
000000006 EF 3 FB O17A6 CALLS #3 PASSURITE, _STRING 
000000006 FF 9F O17A PUSHAB ANSI_RESET 
4 pp 178 PUSHL 
000000006 Fe F 0178 PUSHAB PASS$FV_OUTP 
000000006 EF 3 £B 0178 CALLS 3 "ASSURITE, _STRING 
000000006 FE 9F O17C PUSHAB 
000000006 ¢ BP 15eR PUSHiB Bean OUTPUT 
000000006 EF 4g FB 1700 CALLS PASSWRITE STRING 
000000006 EF 9F 0170 PUSHAB Passe 
000000006 EF 1 FB 017DD CALLS TSCM TeLN2 
OOO000FC 8F DD 01764 PUSHL ; 565 : 5463 
07 DD O17EA PUSHL 
4 DD O17EC PUSHL #4 
000000006 ai OF O17EE PUSHAB SYSSOUTPUT_NAME 
B OD O17F4 PUSHL #11 
01 DD 017F6 PUSHL 
000000006 EF 9F 017F8 PUSHAB FDL_DEST 
000000006 EF 07 FB Vere CALLS #7,PASSOPEN2 
000000006 EF 9F 0180 PUSHAB FDL_DEST : 5465 
000000006 EF 01 FB 0180 CALLS #1, PASS$REWRITE2 
000000006 FF OF 181 PUSHAB TEST : 5467 
000000006 EF 1 FB 0181 CALLS #1,SHOW_PRIMARY_SECTION 
000000006 EF  9F O181F PUSHAB FDL_DEST : 5469 
000000006 _ EF 01 FB 01825 CALLS #1, PASSCLOSE2 
0Ov 11 0182¢ BRB 63$ 
000000006 EF 9F 0182E 62$:  PUSHAB SHIFT : 5475 
4 oD 18 4 PUSHL 
000000006 EF OF 01836 PUSHAB PASSFV_OUTP 
000000006 EF 3 FB 018 ¢ CALLS #3 PASSURITE, _STRING 
000000006 EF 9F 184 PUSHAB QueES_HIN 
1F DD 01849 PUSHL #31 
000000006 EF OF 01848 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 01851 CALLS #3 PASSURITE STRING 
000000006 cf 9F 01858 PUSHAB Passe 
000000006 EF 1 FB 4 ne CALLS #1 SST SSON IT TELNG 
000000006 EF 9F 01865 64$: | PUSHAB SHIFT : 5479 
000000006 t oP i 5 PUSHAB PASSFV OUTPUT 
000000006 EF 5S FB 01 8 CALLS #3,PASSWRITE_STRING 
FFFF745C FF 9F O187A PUSHAB C.ARO 
F pp 1 PUSHL #31 
000000006 FF F 01 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB O01 CALLS #3 PASSURITE _STRING 
000000006 cf OF O188F PUSHAB ANS1_REVERSE 
4 pp 1 3 PUSHL #4 
000000006 ai F 0189 PUSHAB issry OUTPUT 
000000006 EF 3 FB 0189D CALLS #3,PASSWRITE_STRING 
FFFF7452 ai OF 018A4 PUSHAB C,ARP 
3 pp 1BAA PUSHL @# 
000000006 ai F O01 AC PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 «FB O01 CALLS #3,PASSWRITE_STRING 


Page 287 vo 
14 :56: vane GRASTER: PEDF GRCJEDFASK.PAS; 1 (8, 
igen 90:86:05 sich 
nerated Code PUSHAB ANSI_R 
renee pean Ge pp Giser = PUSH PASSEYSOUTPUT ug 
ooooo000s FF FF 3 cr PUSHAB : Ara 
000000006 EF FE Or 04 BUSH PaSSEY OUTEUT RING ; 5481 
000000006 FF oF igs SUSHAL 40" on ciseeet 
000000006 EF 00000000 : OF 189 — EDESAB FILE. TABLE_S ihe 
Fé AD 000000006 EF ig Aiea. EDF SAB FILE_TABLE_KEY. 
rom 000000986 Se CALLS” #4 PARSE_INPUT : 5494 
04 £8 1308 RW is FULL_CHOICE,.+3 : 5498 
000000006 EF 00 NY Bh Otobe 658: COONS . §500 
cme, woos HY EHTS Bil HFM enwer oss : 
< 00 £0 a1%¢¢ BBS #0, TEMP-FULL PROMPT. + 5504 
go HIRE te 
03 000000006 E OO00V 31 01934 os. PUSHAB  § : 
ees Ee 01930 PUSHAB #3 PASSURITE. STRING 
000000006 fF 44 01845 PUSHAB CARR 
000000006 EF sas ee 01955 PUSHAB #8 PASSURITE. STRING 
000000006 fF 44 O198h BUSHAB ANSI REVERSE 
000000006 EF . F o1967 PUSHAB Art ae Hs ya 
come GPE ee Big 
000000006 EF BE bb o197¢ PUSHAB #8 PASSURITE. STRING 
00000006 EF 9F 01964 PUSHAB SECCATIR 
000000006 EF Anon e 2 sae SUSHAB PASSE OUTPUT. 
000000006 EF OF 1938 BUSHAB ANSI-RESE! 
000000006 EF . 2 136 PUSHAB #3 PASSURITE. STRING 
000000006 FF OF 19Ae CALLS Ca 
ae Pe a Bee BASSE QUT pay 
oooooooes fF 7 13¢8 PUSHAB CRLF _SHIFT | 
000000006 EF Oo nog FF bp 133 PUSHAB Fee oer Ty TRING | 
caocaeene Fee SBE PUSHAB CART | 
000000006 EF ass Fe Oot Rt aeE PUSHL | 
} 


—_——————___-—__—___ 


14 
EDFASK Ig-5e -1984 00:56: VAX=-11 Pascal V2.4-277 Page 288 ED 
04-000 Generated Code =300n 138% 99:38:93 DISKSVMSMASTER: LEDF . SRCJEDFASK.PAS;1 298° vO 
000000006 EF 9F 019€7 PUSHAB PASSFV_OUTPUT 
000000006 EF i FB 136 CALLS #3,PASSWRITE_STRING 
000000006 FE 9F 0194 PUSHAB CRLF_SHIFT 
6 pp 19FA PUSHL 4&6 
000000006 FF F O19F PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB O1A0 CALLS #3,PASSWRITE_STRING 
FFFF731D EF  9F O1A0 PUSHAB C.ARU 
12 DD O1A0F PUSHL #18 
000000006 ai 9F O1A11 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB O1AI7 CALLS #3,PASSWRITE_STRING 
000000006 Ff OF O1AIE PUSHAB CRLF_SHIFT 
6 po 1A24 PUSHL #6 
000000006 ai F O1A06 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OIA ¢ CALLS #3,PASSWRITE_STRING 
FFFF7307 EF 9F O1A PUSHAB C.ARV 
13° DD 01A39 PUSHL #19 
000000006 ai 9F O1A3B PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB O1A41 CALLS #3,PASSWRITE_STRING 
000000006 cf 9F O1A48 PUSHAB CRLF_SHIFT 
6 dD TAGE PUSHL 
000000006 ai OF QIAd PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB O1A56 CALLS #3,PASSWRITE_STRING 
FFFF72F1 EF  9F O1A5D PUSHAB C.ARW 
12 DD 01063 PUSHL #1 
000000006 ai 9F 0165 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB O1A6B CALLS #3,PASSWRITE_STRING 
000000006 EF OF O1Az2 PUSHAB CRLF_SHIFT 
6 dD OIA? PUSHL # 
000000006 ai OF O1A7A PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 01480 CALLS  #3,PASSWRITE_STRING 
FFFF72DB EF 9F O1A87 PUSHAB C.ARX 
14 DD O1A8D PUSHL #20 
000000006 EF 9F OIASF PUSHAB PASSFV_OUTPUT 
000000006 _ EF 03 FB 01A95 CALLS #3,PASSWRITE_STRING 
000000006 cf OF O1A9C PUSHAB CRLF_SHIFT 
6 DD O1AA2 PUSHL @# 
000000006 Ef OF O1AA4 PUSHAB PASS$FV_OUTPUT 
000000006 _ EF 3  §B O1AAA CALLS #3,PASSWRITE_STRING 
FFFF72C5 EF 9F O1AB1 PUSHAB C.ARY 
13 pp 1AB7 PUSHL #19 
000000006 ai F O1AB9 PUSHAB PASS$FV_OUTPUT 
000000006 _ EF 3 FB OVABF CALLS #3,PASSWRITE_STRING 
000000006 FF 9F O1AC6 PUSHAB CRLF _SHIFT 
6 pp 1ACC PUSHL 
000000006 a F O1ACE PUSHAB PASSFV_OUTPUT 
000000006: EF 3 FB O1AD4 CALLS #3,PASSWRITE_STRING 
FFF F72AF FF 9F O1ADB PUSHAB (C.ARZ 
& pp 1AE PUSHL #22 
000000006 FF F O1AE PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OIAE CALLS #3,PASSWRITE_STRING 
000000006 ai OF O1AFO PUSHAB CRLF 
2 pp arg PUSHL #2 
000000006 ai F OAF PUSHAB PASSFV_OUTPUT 
000000006: EF 3 FB OIAF CALLS #3,PASSWRITE STRING 
000000006 EF  9F 0180 PUSHAB 
000000006 EF 1 FB 1808 CALLS #1, PASSWRITELN2 
0000v 31 0181 BRW 76$ 


———_—__—_—__—___{ 


D 14 
706-000 Generated Code Mer 8eb-18Bs 19:38:50 DISKSUMSMASTER CEDF SRCIEDFASK.PAS;1 eBay 


000000006 FF 9F 01815 69$:  PUSHAB SHIFT : 5529 
4 po 1B1B PUSHL 
000000006 Ff F 1810 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB O18 CALLS a3 PASSWRITE _STRING 
000000006 FF 44 18 A PUSHAB & Q S_H | 
000000006 FF oF O1B ; PUSHAB PASSFV_OUTP | 
000000006 EF 3 FB 01B CALLS #3 PASSURITE STRING 
000000006 EF 9F 01B3F PUSHAB PASS$FV_OUTP 
000000006 EF 1 fe 1B45 CALLS #1 PASSURI TELN2 
00000000 % F iper 71$ BO SHAL ie 5539 
9000000 OG EF 1 FB 1855  ~~—_——sCALLS CLEAR ; 
ov 0000000G_ EF 0 €0 0185¢ BBS 50° FULL_PROMPT ,73$ : 5541 
03 000000006 EF o0fey 69 1864 BBS #0, TEMP FULL_PROMPT, .+3 
000000006" EF 9F O1B6F 73$:  PUSHAB SHIFT : 5545 
DD 01875 PUSHL #4 
000000006 i 9F 01877 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 01B70 CALLS #3,PASSWRITE_STRING 
rrvvaxc op io tieme © pla Gh 
000000006 EF 9F bi Bee PUSHAB PASSFV_OUTPUT 
00000000G_ EF 03 FB 31836 CALLS #3 ‘eo STRING 
000000006 EF F 01899 PUSHAB A ANSI_REVERSE~ 
000000006 EF 9F tH PUSHAB ft cory OUTPU 
000000006 EF 03 FB O1BA7 CALLS #3, PASSURITE. _STRING 
ring hy Sipe ue Ase 
000000006 ai 9F 01BB6 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 1B8¢ CALLS #3 PASSWRITE _STRING 
mn, CR Bit PUSH. aoe" 
000000006 EF 9F hte PUSHAB PASS$FV_OUTPUT 
000000006 EF Saseahaii t FB 0180) CALLS HS PASSuRiTE, STRING 
4 DD 018D PUSHL @# 
000000006 FF OF iBeb PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB O1BE6 CALLS 3. PASSURITE _STRING 
caccaaons Fe ge Siers ua att 
000000006 ai OF O1BF PUSHAB PASSFV_OUTPUT 
00000000G_ EF 000000006 ; fe 1208 sot #8 PASSURLTE STRING | 
000000006 EF 1 FB 01CO CALLS #1 SRS SURI TELN2 
000000FC 8F DD O1COF PUSHL Hose : 5552 | 
{Bg 
000000006 EF oF 1€19 PUSHAB SYSSOUTPUT_NAME 
fe op gicie = bush 
000000006 FF F O1C ; PUSHAB FOL DEST | 
penne. 000000006 f oP if 0 pushae 4 (noes et 5554 
000000006 EF 6 FB 01036 CALLS AT PRSSREWRITE2 
000000006 EF 9F 01C3D PUSHAB TEST 5556 


ae 382 98: 38: 83 DL SkSVMSMASTERSEEDF Sh SRCJEDFASK.PAS; 1 ay 
CALLS #1,SHOW PRIMARY SECTION 


4 
anne 


Cpr ASE 1 
v04-000 Generated Code 
00000000G_ EF 


00000000G_ EF PASSWRITE. STRING 


PUSHAB ans 


PAssty OUTPUT 
CALLS é #5 PASSURITE STRING 


000000006 
000000006 
FFFF7107 

000000006 
000000006 
000000006 


1 
000000006 EF PUSHAB FDL_DEST ; 
000000006 EF 5 CALLS # C PEST ses _— 
000000006 i 74$: PUSHAB SHIFT 3 5564 
000000006 EF PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 CALLS #3 PASSURITE, STRING 
000000006 F BUSHAB S_H 
000000006 EF PUSHAB PASSFV_OUTPUT 
000000006 EF 3 CALLS #3 PASSWRITE STRING 
000000006 EF PUSHAB PASSF 
000000006 EF 1 CALLS #1 SASSUNT TEL 
000000006 f 76$: PUSHAB suit HIFT : 5568 
000000006 EF PUSHAB PASS$FV_OU 
900000006 EF 3 CALLS #3 PASSURITE. STRING 
FFFF710D EF PUSHAB C.ASC 
2 PUSHL #34 
000000006 F PUSHAB PASStY OUTPUT 
F 
4 
F 
3 


00000000G_ EF 


’ 
PUSHAB PASSFV 
CALLS #3 PASSURITE, _STRING 
PUSHAB ANSI RES 


PUSHAB PASSFV_ OUTPUT 
CALLS €5 PASSURITE STRING 


00000000G_ EF 


000000006 EF 


So 
[=] 
DOP M YS MOOOMOMOMOMOMOMOMOMOMMMOMOMOMOM —MOMonooneg 
OfLO NO NNNWNATAT & TNA 
— 
Ree ee ee Br er ee ee er ee er ee er er er er er ee ee ee ee er er 


SVC OSS SS SSF SS SSF SIFFS YIGI|I YVBOONOOOOOOOOAOOOOOOOOAOOAAOOOOAAIOAOQOAAMAOOOOAO 
SPAMS & PUMA ININ 3 $$ “QO RNHAMMMOOVOEPNOOOWD YS YS F OOO OOOO OO 
OP COMI M NM OMIM NES BMAF L MN MONO PS LFF NMA WNMOF WI DUM WOK OOWMOFSLM YN NONOPFPWw wom 
vo 
c 
[77] 
tel 


FFFF70E1 PUSHAB 
PUSHL # 
000000006 SHAB PASSFV_OUTPUT 
000000006 EF CALLS #3,PASSWRITE_STRING 
00000000 PUSHAL 40° ; 5570 
00 PUSHAB 
F4 OAD 000000006 ROVAB EDESAB JOURNAL _TABLE_STA,-12(FP) 
FO AD 000000006 VAB_ EDF $AB_JOURNAL_TABLE_KEY,-16(FP) 
F PUSHAB 16 
000000006 EF CALLS #4, BARSE_INPUT 
03 000000006 EF 00 77$: BBS #0,FULL_CHOICE,.+3 : 5583 
0000v RW 83$ 
mA 00000000 f PUSHAL 4 Pipe ; 5587 
oov90900006 EF BBS #0. FULL PROMPT 80$ : 5589 
000000006 _ EF BBS #0. TEMP-FULL_PROMPT, .+3 
0000v BRW 81§ 
000000006 EF 80$: | PUSHAB SHIFT : 5593 
PUSHL #4 
5 PASSFV 


NOD OVMTM NOWMAM OOOOOS NOD ONOTONODTONOTONOTONOITONONOTONOVTO- "ON 
OMNO F008 8 $0 TDAWMMAMMAMD MO MNO NV NONI OVO VM ON "DW OVO wD 
SOOQOGOOOOOOOOSOGOO OOOO COGSOSSOSSOSOCSOSOSOOSCOOSOOOOOOOOOOOOOOOOO 


000000006 fF 


PUSHAB OUTP 
00000000G_ EF CALLS #3,PASSWR Te STRING 


‘ EI 
Se MM tL Pg, Sk.PAS;1 (3a) vl 
36:05 EDF SRCJEDFA 
=Sep-1984 00:56: TER: CEDF. 
ar d Code "Bags D1 984 93:38:93 _ SKSVMSMA 
EDF ASK Generate 9 PUSHAB €.AS 
vbe FFFF7067 © OF 1077 Duets BASSEY OUTPUT me 
00006 fT Pe Sibus CALLS) #3 PASSURITE STRI 
ep 0000 65 Fe 13 BUSHAB ANSI_REVERSE™ 
~ 000000 Bb 1B ; PUSHAB ap OUTPUT 
006 FFE BR IR2 CALLS” #8 PASSURITE, STRING 
ooooooogs FF 9F 010% CALLS) #3 PA 
000000006 EF 1 GF 5F Bloat BUSHAB CA 
PrrrrOe! Gh BD OTDA SHAB PASSEV UTP . 
000000006 FF 9 O1DA9 CALLS” #3 PASSURITE. STRIN 
000000006 EF O5 4 1DB6 PUSHL Brae we 32 
Bo00000g EF SF O1DBE CALLS. #3, PA PASSURITE. INTEGER 
oo00000G FF 9F O1DBE CALLS, #3 PASS 
000000006 EF og tt OP Ritts PUSHA 
nee TG bb O1DD} PUSHAB PASSE V OUTPUT 
we oe eee CALLS. #3 PASSWRITE, STRI 
006 EF Oe i OF 01D BUSHAB ANSI 
000000 000000006 cE po IDEs PUSHL. 8 7 ed ouTpuT , 
000006 EF PF IDE CALLS “3.  PASSURITE _STRIN 
oo00s er 05 Oe OtOeE BUSHAB CRLF 
0000 wees FE hers a ie 
Ceeeeeees TF sient ALLS w3 PASSURITE_ STRI 
0000006 EF if ep IEDs PUSHAB CRLF_S 
006 FF OF OIE CALLS, #3, PASSURITE. STRIN 
nog ep 200000006 FF fo o1ei8 sithts Eth 
000000 FFFFOFCF gf D O1E 5 pusHL orl esy he 
ooo fF OF ONE CALLS. #3. PASSURITE, _STR 
06 EF Os fp 1684 PUSHAB CRLF_S 
ave ees 86 Bb OTESA PUSHAB PASSFV_OUTPUT G 
00000000 FF 9 OIE CALLS. #3, PASSURITE. STRIN 
000006 EF Os ee pee PUSHAB  ¢ ml 
000 FFFFOFD1 t D O1EGE PUSHL 3 * 
06 EF OF O1ES1 CALLS. #3, PASSURITE. _STRI 
“meet oh.’ HTH PUSHAB CRLF _SHIFT 
“000006 Ob pp GTEC PUSHAB PASSFV_ OUTPUT NG 
0000s FF  9F OtEGE CALLS. #3, PASSURITE. STRI 
000000006 EF . eee gE OF OIE? PUSH wee OUTPUT 
ooo FF 9 iat CALLS #3. PASSWRITE, STRING 
0006 &F 03 4B PUSHAB CRLF_S 
00000 ooooo000s FF OF OIE Ng, Maples ‘ 
p OF Ole CALLS” #3 PASSURITE _STRIN | 
0000006 FF 9 OIE CALLS. #3 PA | 
900000006 FF FrFFGFC! EF OF O1E9D | 
| 
} 
} 


CALLS #3, PASSURITE STRING 
000000006 PUSHAB CRLF ~SHIFT 


SSSSR 
o33 
ase 


14 
EDF ASK 1B-5e VAX-11 Pascal V2.4-277 P 3 Et 
S800 Generated Code ~300n 138% 99: 36: 93 DT KSUNSRASTER FEGF-GRCJEDFASK.PAS:1 og¢ 2 . v¢ 
30 0D O1EA PUSHL 
000000006 aa ep AY PUSHAB Ta OUTPUT 
000000006 EF FB OIEA CALLS PASSURITE _STRING | 
000000006 Ff OF O1EB PUSHAB SHIFT 
000000006 EF oF OIEBA PUSHAB Be, output 
000000006 EF 5S FB 1ECQ CALLS 4&3 SASSURITE _STRING 
revere? Grab Siete BUEN Ast 
000000006 Ff BP 1ECF PUSHAB PASSFV_OUTPUT 
000000006 EF 3 ©6FB O1EDS CALLS #3, PASSURITE _STRING 
coooooane fe ge Steps une gat 
000000006 ai oP 1EE4 PUSHAB PASSFY OUTPUT 
000000006 EF 3 FB O1EEA CALLS #3,PASSWRITE_STRING 
FFFFOFCD EF 9F O1EF1 PUSHAB ete 
000000006 ¢ BP 1Ere BUSHAB PASSEY ou 
000000006 EF 3 FB OIEFF CALLS 3 -PASSURLTE, _STRING 
000000006 EF 9F 01F06 PUSHAB tRir’s 
000000006 e P foe SUSHAe PASSFV_OUTPUT 
000000006 EF 3 FB O1FI4 CALLS #3,PASSWRITE_STRING 
FFFFOFC7? EF 9F O1F1B PUSHAB (.ASN 
000000006 } 8p it \ PU Hae PASSt VOU TPUT 
00000000G_ EF 3 «6FB O1F29 CALLS 3 -PASSURITE STRING 
000000006 f oF iF 0 PUSHAB CRLF. SH IFT 
000000006 ai oF git § PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB OTF i CALLS #3, PASSURITE _STRING 
FFFFOFCI F OF O1F4 PUSHAB C.ASO 
000000006 f oP if08 PUSHAB 9 ign 
000000006 EF aeedial FB 1F53 CALLS, a3, 5 PASSURLTE. STRING 
000000006 P 183 PUSHaB PASSFV_OUTPUT 
000000006 EF nieaenell FB H CALLS #5 PASSURITE. STRING 
D O1F PUSHL #40 
000000006 P 153 PUSHAB PASSFV_OUTPUT 
000000006 EF FB 17D 
bb 1F 
F OIF 
FB OTF 
OF O1F 
bb 1F 
F OIF 
FB OTF 
OF O1F 
bb 1F 
Fb OFF 
OF O1F 
FB OTF 


SmOomMmomMmomomomomomrymomamom 


000000006 PASSFV_OUTPUT 
000000006 EF 3 PASSURITE _STRING 
FFFFOFC1 PUSHAB C.ASQ 
oF PUSHL ais 
000000006 Al PUSHAB OUTPUT 
000000006 EF A? CALLS is. “PASSURITE _STRING 
000000006 AE PUSHAB 
B PUSHL 
000000006 BG PUSHAB PASS OUTPUT 
000000006 EF B CALLS @ PASSURITE STRING 
000000006 C PUSHAB PASSFV_ OUTPUT 
000000006 EF ¢ CALLS #1,PASSWRITELN2 


+ 


H 14 
EDFASK 16-Sep-1984 00:56: VAX-11 Pascal V2.4-277 Page 293 
Or Soo Generated Code eae ts 1 90:38:93 NTR OUNSRASTER FEOF Ga CJEDFASK.PAS:1 (82) 
OOv 11 O1FD BRB 82$ 
000000006 Ff of IED 81$ PUSHAB SHIFT 3 5624 
000000006 FF BP 1FDA PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 «FB TFEQ CALLS. #3,PASSWRITE_STRING 
000000006 FF OF O1FE PUSHAB QUES_HINT 
F pp 1FED PUSHL # 
000000006 FF F OIFEF PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB OFFS CALLS #3,PASSWRITE STRING 
000000006 EF 9F OIFF PUSHAB PASSFV_OUTPUT 
000000006 EF 1 re CALLS #1,PASSWRITELN2 
0000v 3 828: BRW 8a$ 
00000000 8F OoU«ODF $:  PUSHAL @# : 5632 
900000006 EF ta. 1 CALLS #1,CLEAR 
gov 0000000G_ EF 0 € 1 BBS #9. FULL PROMPT 85$ : 5634 
03 000000006 EF aE i 0 \ BBS #0 ,TEMP_FULL_PROMPT, .+3 
000000006 FF F 020 § 85$ PUSHAB SHIFT : 5638 
4 pp 0 PUSHL # 
000000006 EF F 02034 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3  £B O203A CALLS #3,PASSWRITE_STRING 
FFFFOF29 ai OF 4 PUSHAB C.ASR 
2 bb 7 PUSHL # 
000000006 EF F 02049 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB O204F CALLS #3,PASSWRITE_STRING 
000000006 EF 9F 02056 PUSHAB ANSI_REVERSE 
4 DD 0205¢ PUSHL #4 
000000006 FF 9F 0205€ PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 02064 CALLS #3,PASSWRITE_STRING 
FFFFOFO3 i 9F 02068 PUSHAB C.ASS 
C od 02071 PUSHL @#i2 
000000006 EF 9F O73 PUSHAB PASSFV_OUTPUT 
000000006 EF ; FB o7 CALLS ‘ »PASSWRITE_STRING 
0000846 EF 0D OB PUSHL IDATA+132 
00000006 Fr 9F 020 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OBE CALLS #3,PASSWRITE_INTEGER 
000000006 EF Hi 09 PUSHAB SEC_ATTR 
000000006 ai oP : PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OA CALLS #3,PASSWRITE STRING 
000000006 FF 9F OZ0AA PUSHAB ANSI _RESET | 
000000006 a4 OF ty PUSHAB PASS$FV_OUTPUT 
000000006 EF FB CALLS #3,PASSWRITE_STRING 
000000006 ai OF é SHAB CRLF 
2 bb C3 PUSHL #2 
000000006 ai F 020¢ PUSHAB PASSFV_OUTPUT 
000000006 _ EF 3 FB 020CD CALLS #3,PASSWRITE STRING 
000000006 EF 9F 4 PUSHAB PASSFV_OU 
000000006 EF 1 FB A CALLS #1,PASSWRITELN2 
0o0000Fc «= BFESOs«éD 1 PUSHL Hse : 5647 
7 OD 7 PUSHL # 
4 BD 9 PUSHL #64 
000000006 €—F 9F PUSHAB SYSSOUTPUT_NAME 
8 DD O20F PUSHL #11 
DD O20F PUSHL #1 


14 | 
EDF ASK 16-Sep-1 VAX-11 Pascal V 294 4 
TO 800 Generated Code g-tep “19 388 99: 38: 3 DISKSVMSMASTER: ete ch SRCIJEDFASK.PAS;1 Page)? | Vv 
000000006 EF 9F 020F5 PUSHAB FDL_DEST 
000000006 EF ssecseete oF EB ‘ CALLS ne pREsoPENg ose 
000000006 _ EF Bi FB 021 CALLS 4 oC DEST nites ' 
000000006 Ff 9F O210F PUSHAB T $1 3 5651 
000000006 EF 1 €B 02115 CALLS #1,SHOW_PRIMARY_SECTION 
000000006 EF 9F 0211 PUSHAB FDL_DEST : 5653 
000000006 EF 4 re CALLS a] ,PASSCLOSE2 
000000006 FF 9F 02128 86$: | PUSHAB SHIFT : 5659 
4 pp 131 PUSHL #4 
000000006 FF F 021 : PUSHAB PASSFV_OUTPUT 
000000006 _ EF 3 FB 021 CALLS a3 PASSURITE _STRING 
000000006 FF 9F 02140 PUSHAB S_H 
F pp 146 PUSHL 7 
000000006 a F 0214 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 146 CALLS #3 PASSWRITE STRING 
000000006 FF OF 19 PUSHAB PASSFV_OUTPUT 
000000006 EF 1 £B 021 CALLS #1 SASSURI TELN2 
000000006 cf 9F 02162 88$:  PUSHAB SHIFT : 5663 
4 DD 0216 PUSHL # 
000000006 cf OF 16a PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 021 9 CALLS #3,PASSWRITE_STRING 
FFFF6EO3 ai 9F 0217 PUSHAB C.AST 
9 DD 0217D PUSHL @# 
000000006 EF 9F O217F PUSHAB PASSE OUTPUT 
000000006 EF : FB 6 185 CALLS »PASSWRITE_STRING 
00000084G EF BD 18 PUSHL IDATA+ 132 
000000006 a F 02194 PUSHAB PAS$FV_OUTPUT 
000000006 _ EF 3 FB 0219A CALLS #3 PASSURITE. INTEGER 
FFFF6ODES EF 9F O21A1 PUSHAB C.ASU 
15 DD 021A7 PUSHL #21 
000000006 FF 9F O21A9 PUSHAB PASSFV_OUTP 
000000006 _ EF 3 FB O2TAF CALLS #3 PASSURLTE, _STRING 
000000006 EF 9F 02186 PUSHAB ANSI_REVERSE~ 
4 DD 021BC PUSHL # 
000000006 ai 9F 021BE PUSHAB o ssry ouTP 
000000006 EF 3 FB 021C4 CALLS #3 PASSURITE. _STRING 
FFFF6DD3 cf 9F 021CB PUSHAB (.ASV 
3 pp 101 PUSHL @# 
000000006 EF 9F 02103 PUSHAB PASSFV_OUTPUT 
000000006 EF 03 FB 02109 CALLS #3 PASSURLTE _STRING 
000000006 FF OF O21E PUSHAB ANSI_RESET 
4 pd OBIE PUSHL #4 | 
000000006 Ff FOOTE PUSHAB PASSFV_OUTPUT 
000000006 _ EF 3 FB TEE CALLS #3 PASSURITE _STRING 
FFFFODAD ai OF OTF PUSHAB C.ASW 
3 pp 1FB PUSHL @# 
000000006 EF 9F 60 PUSHAB PASSE OU 
000000006 EF 3 «FB 9 CALLS seRSsunite. _STRING | 
anne F DF OA PUSHAL : 5667 
F4 AD 000000 EF : 13 MOVAB EDESAB KEY_TABLE_STA,-12(FP) 
FO AD 000000006 EF 9€ 1 MOVAB EDF SAB. KEY_TABLE_KEY,-16(FP) 
FO AD OF 0222 PUSHAB 
| 


ant 79 Generated Code ~Sep- 1982 99:38:93 DISKSVMSMASTER EDF SRCIEDFASK. pas;t tun 


000000006 EF a 4 a CALLS #4 .PARSE_INPUT 
03 000000006 EF ma 0 59 $: BBS ‘ ghULL CHOICE, .+3 : 5680 
000006 EF ee Pure: Ft. CLEAR _— 
o9v09000 00 G EF £9 BS ‘ >FULL_PROMPT ,92$ : 5686 
000000006 EF a3 i BBS #0 TEMP FULL PPROMPT, .+ +3 
000000006 f E 92$: PUSHAB SHIFT : 5690 
000000006 EF gP PUSHAB PASSFV_OUTPUT 
000000006 EF 3 «FB CALLS #3,PASSWRITE_STRING 
FFFF6D33 F i BUSHAB c ASX 
000000006 EF 9F PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB CALLS #3 PASSURITE _STRING 
000000006 f oF PUSHAB A ANSI. ERSE™ 
000000006 EF 9F PUSHAB oissry OUTPUT 
000000006 EF 3 FB CALLS S, PASSWRITE_STRING 
FFFF6DOD EF 9F PUSHAB (C.ASY 
D pp PUSHL fis 
000000006 cf F PUSHAB PASS$FV_OUTP 
000000006 EF 3 «FB CALLS #3 PASSURITE, _STRING 
000000006 FF PUSHAB S 
000000006 EF 9F PUSHAB PASsry TPUT 
000000006 EF 5S FB CALLS 3 PASSURITE _STRING 
000000006 EF oF PUSHAB ANSTO ESET 
000000006 EF OF PUSHAB PASS$FV_OUTPUT 
000000006 EF ceniaeiil t Fe CALLS 3 PASSWRITE _STRING 
2 oD PUSHL 
000000006 EF 9F PUSHAB OUTPUT 
000000006 EF 03 FB CALLS #3 PASSURITE, STRING 
000000006 FF 9 PUSHAB  ¢ RLF_S 
000000006 ai or SHAB PASSFV_OUTPUT 
000000006 3 «FB CALLS #3,PASSWRITE_STRING 
FFFF6CB4 FF oF PUSHAB ¢cAsz 
000000006 FF P SHAB PASS$FV_OUTP 
000000006 3 FB CALLS 3. PASSURLTE, _STRING 
000000006 FF eb BUSHA RLF_S 
000000006 EF 9F 5 PASSFV_OUTPUT 
000000006 5S FB CALLS #3 PASSORITE _STRING 
FFFFOC9E f OF PUSHAB C.ATA 
4 po PUSHL #24 
000000006 Ff F PUS PASSFV_OUTPUT 
000000006 3 «FB CALLS #3, PASSUR RITE_STRING 
000000006 Ff oF PUSHAB CRLF _SHIFT 
000000006 ai BP PUSHAB PASSFV_OUTPUT 
000000006 3 «FB CALLS #3, PASSURITE _STRING 


eee ?):.0.000 
o 


EDF ASK 
04-000 Generated Code ke 
5 FFFF6C8C Fe Bp 
000000006 EF F 
00000000G_ EF 55 FB : 
000000006 fr Bp 
000000 f F 
00000000G_ EF _ 5S FB D 
FFFF6C7E Ff a4 ; 
000000006 FF er 
00000000G_ EF 3. «CFB 3 
000000006 FF a oF 
000000006 FF P Al 
00000000G_ EF 3 CFB A7 
FFFF6C64 Fr a a 
000000006 FF er B6 
00000000G_ EF 3 «CFB Bs 
000000006 Fe +4 3 
00000000G EF 9F CB 
00000000G_ EF 3. COB D1 
000000006 Fr oF D8 
00000000G_ EF obey FS OF 
000000006 FF ‘ 38 
000000006 Fe oP 39 
00000000G_ EF 3COFB F6 
000000006 fr a ibe 
000000006 Fr P 405 
00000000G_ EF 3 ~=6FB 0240 
000000006 ff oF ‘te 
00000000G_ EF 00 e £8 rt 
00000000 F OF 024 ‘ 
00000G EF we. 4 
00VO0000000G EF £0 42F 
03 00000000G_ EF oosty 5 re 4 
000000006 FF F rr 
4 4 44 
000000006 Fe F O0244A 
00000000G_ EF 3 = FB 024 9 
FFFF6BC9 fF 4 : 
000000006 Fr 8° 45F 
00000000G_ EF 3 «6 FB 02465 
000000006 Ff rod i 
000000006 FF P 47 
00000000G_ EF 3 ©6FB O247A 
FFFF6BA1 fr +4 3 


53 ee 1 
e = 
~Sep-1 


93$: 


95$: 


97$: 


Sh (Q:0:95  WMcLidaustlatfei22 


#5, ° 
cRLF -SHIFT 


PASSFV OUTPUT 
g> ,DAseuni te. STRING 


#16 
PASSFV_0 
a “PASSMRLTE, STRING 


PaSsFy OUTPUT 
€3 ,PASSUnITE. STRING 


#1 
PASSFV_OUTP 
a "PASSURITE, STRING 


al 

PASSFV_OUTPUT 
#3,PASSWRITE_STRING 
PASSFV_OUTPUT 

#1 PASSURITELNZ 
106$ 


mere 


PASSE UTPUT 
ry PASSuRITE, STRING 


; 
PASSFV_OUTPUT 

#3 PASSWRITE STRING 
PASSFV_OUTPUT 

f} PASSURITELN2 


Hi, CLEAR 
*FULL_PROMPT ,97$ 
#0 TEN FULL_PROMPT, .+3 
SHIFT 


PASSFV OUTPUT 
#3,PASSWRITE_STRING 
C.ATE 

a2 

PASSFV_OUTPUT 

#3 PASSURITE _STRING 
ANSI RE ERSE~ 

PASSFV 

#3 shSsuniTy. _STRING 


CATE 


3 5711 


: 5721 
: 5723 


: 5727 


lL V2.4-277 "2 Pal 
14 56: VAX-11 Pasca a. EDF. SRCJEDFASK.PAS: 
if-Sen-1984 3335398 DTSkSvMSMASTE 
Code PASSFV_OUTPUT 
EDFASK Generated 9 PUSHAB SWRITE_STRING 
VO4-000 ep 000000006 FF fb ist BUSHAB SE PATI 
00000006 F F PUSHL 
ee et aa ee 
000000 3 4hG §1_RESET 
PUSHAB ANSI_ 
00000006 EF F OF 026A PUSHL 
0 ween GE t, CED ee ae vsutl re STRING 
ooooo000s FF  9F Oc4Bs Salt, Ene PASCUni te 
00000006 EF F 9F 024C0 PUSHL 
0 000000006 Oe pp ace PUSHAB Se enloni ty) staine 
 comnomnos FP HP ARS ikke BRCHAET ES : 57% 
sonceeees -p 000000006 EF  9F fs CALLS 1,8 
0000006 F OD SHL 
ree oe tS Bike Hesourvt we 
GE 
000000006 EF 9F 24e. PUSHL ai] 
O1 DD gars PUSHAB FDL DEST ; 5736 
000000006 FF oF Gf pn MR OF DEST 8 
7 FB Ocare PUSHAB FOL URITE2 : 573 
O0000000S EF eo cnone BEF 06308 CALLS, #1 ,PASSRE = - 
000000006 EF ¢ EF OF 09810 CALLS. #1, SHOW, PRIMARY SECT! 
cccocones Ft 3516 PUSHAB FDL DEST 
000000006 EF A rooog oF fe 310 CALLS” #1 BASSCLO + $746 
er” 61 WF OSeoa + 
penn 00000006 EF oF Ss2gg 988: = PUSHAB Sit ortnal 
0 64 BD 06336 CALLS” #3 PASSORITE. STRING 
-, 000000006 FF Fe 0953 CALLS. ayes HINT 
00000006 EF F PUSHL 
: cope BP o9ee9 CALLS. @SsPASSURITE. STRING 
000000006 EF 9F 02549 BUSHAB PASSFY OUTPUT ; 5750 
000000006 EF one FF OF s5¢ CALLS #1 -PASSWRITEL 
> BU 
00G EF OF 02563 1008: H #4 
I cscs a ee 
000000006 FF OF ; te 
PUSHAB 
00000006 EF F 9F 02578 PUSHL 
' comnooos SPARS Ba Play ouinn 
000000006 et PUSHAB ANST-REVERSE™ 
0G EF OF 
es 51) ie: PSST ran 
000000006 EF ts oF ie PUSHL Tal T 
we © BD O98 CALLS. #8 PASSURITE. STRING 
000000006 FF OF Og>AA CALLS : 
000000006 EF 


14 


1 
A 16-Sep-1 VAX-11 Pascal V e 298 
vented Generated Code g- Sep “19 7 99: 38: 9 DISKSVMSMASTER: Veebe ch SRCIJEDFASK.PAS;1 Page 
000000006 FF 87 PUSHAB ANSI_RESET 
000000006 EF 9F 025BF PUSHAB PASSFV_OUTPUT 
000000006 EF Seiianas o3 8 C5 CALLS | 3 PASSURITE STRING 
coonneos FP PRE Ba Bary ey 
000000006 EF seanee Y if i CALLS) #3, PASSWRITE_STRING . oe 
F 9F 025€7 PUSHAB ; 
F4 AD 000000 EF 3 BEA MOVAB EDESAB RECORD. TABLE_STA,-12(FP) 
FO AD 000000006 EF a ate MOVAB EDFSAB_RECORD_TABLE_KEY,-16(FP) 
FO AD OF 025FD PUSHAB <16(FPY 
000000006 EF aE a 00 CALLS #4, PARSE_INPUT 
03 000000006 EF 00 £0 60A 101$: BBS #0,FULL_CHOICE,.+3 : 5765 
0000v 31 612 BRW 107$ 
oooon000g ep C0000 «BF OE Ose CALS: #1 .CLEAR ln 
00v00000000G_ ‘EF 00 £0 026 BBS #0. FULL_PROMPT,104$ : 5771 
03 000000006 EF 00 egy if 6 ; BBS #9, TEMP FULL_PROMPT,.+3 
000000006 EF 9F 02635 104$: PUSHAB SHIFT : 5775 
BG pp 638 PUSHL # 
000000006 EF  9F 0263D PUSHAB PASSFV_OUTPUT 
000000006 EF ame : FB 643 CALLS #3 PASSURITE_ STRING 
2 0D 02650 PUSHL # 
000000006 EF 9F 63 PUSHAB PASS$FV_OUTPUT 
000000006 EF RE. 3 FB 638 CALLS a3 -PASSURITE. STRING 
000000006 t or 8 $63 PUSHAB PASSFV_OUTPUT 
000000006 _ EF 3 FB 0266D CALLS #3,PASSWRITE_STRING 
FFFFO9EE F eb 674 PUSHAB C. ATK 
000000006 EF 9F 0267 PUSHAB 
000000006 _ EF 03 FB 68s CALLS a “PASSURITE STRING 
0000006 EF 9F 0268 PUSHAB SEC_ATTR 
commons ft SHH Fa Felis avr 
00000000G_ EF eooooeees ; fe red CALS ANSI RESET STRING 
000000006 t BP vy PUSHAB P PASSFV_OUTPUT 
000000006 EF leche : FB es CALLS 43 a3 PASSURITE _STRING 
2 bb 68 PUSHL 
F «OOF PUSHAB oUTPU 
cooooonc er £00000 fF RP BS oY a 
6 DD 026¢ PUSHL 
006 EF er enh PUSHAB + V_OUTP 
000000006 _ EF eeeete 5S Fe 606 CALLS 4&3 SASSUNITE. _STRING 
FFFFOI9S FF bb Osers pusHAB CAT 


299 
-11 Pascal V2.4-277 DFASK.PAS; 1" (94) 
igSeee 188 09:96:08 late 
ed Code HAB PASSFV TRING 
eR vs, oq OOEO00S fF 9 ER EAL, EACPARSMTE.S 
000000006 EF 00000006 FF 4 PUSH PASSE OUTP YT RING 
000000006 FF OF £00 PUSHAB ¢.ATm 
000000006 EF some be Bp Ht PUSHAB #3 PASSURITE, STRING 
000000006 EF  9F 715 BUSHAB CRLF-S 
annrneen scenscens Fe Bp ? é PUSHAB W3 PASSURI TE. STRING 
000000006 fF 44 ‘ sushae c-ATN 
000000006 EF EFF69SD is bb tat PUSHAB #3, PASSURITE, _STRING 
000000006 FF 9F 13 BUSHAB ¢ cRLF_S 
000000006 EF oe cf BD rac buses #8 PASSURI TE. STRING 
o0000006 EF 9F 0 73k BUSHAB c.ATO 
000000006 EF . 2 761 PUSHAB #8 PASSURITE, STRING 
come 4: tee oe: er 
wEEEEOTS. OF cscnees 66 BD 0977 PUSHAB #8 PASSURI TE. STRING 
F 9F 0277 CALLS #3 ,PASSW 
000000006 fF fa re PUSHAB ¢.ArP 
000000006 EF . 2 786 PUSHAB #3 PASSURITE, STRING 
oooo000s FF oF 798 PUSHAB CALF-S 
O00000006 EF a nnnne i Bb O 7A0 PUSHAB #3 PASSURITE. STRING 
000000006 EF OF iM PUSHAB At 
eaeeenene  & asssenes F DD ie PUSH #3 PASSURITE, STRING 
000000006 4 4 BD cuthie ¢ cRLF_SH 
—rnenapenice Eine FF Bp 7CA PUSHAB #5 PASSURITE. STRING 
000000006 fr +4 705 BUSHAB c ATR 
000000006 EF FF op 70F Pusha FS aso RITE. STRING 
F 9F O27E1 CALLS #3 -PASSU 
000000006 FF OF Te] PUSKAS CALF 
SOOOCOONS EF nonnes 6D op Ad PUSHAB #3 PASSURITE. STRING 
F OF O97F6 CALLS #3, PASSW 
oooooo00s FF oF ar PUSHAB BASSE OUTPUT 
000000006 EF ne i fe B09 CALLS #148 
000000006 EF 0000v 3 . 


ee 


EDFASK 16-Sep-1 56:05 VAX-11 Pascal V 
EBEARE ia G-Sepc19B O0:56:0  YANGHT Pascal VELK=277 ace mag 1P28f 3 
000000006 Ff OF 13 105$:  PUSHAB SHIFT : 5798 
4 pp 1 PUSHL 
000000006 ai F 18 PUSHAB PASS$FV_OUTPUT 
000000006 EF eneiaan : fe i CALLS gs pASSWRITE. STRING 
Ff po : PUSHL 
000000006 FF F PUSHAB PASSFV 
000000006 EF cmeeneitl 3 FB 6 CALLS #3 PASSURITE. STRING 
000000006 EF nol re B48 CALLS #1 ST ue 
00000000 4 '® Ht D 107$ SUSHAL 1 5806 
00000006 EF ¥ FB 8 CALLS EAR . 
00v00000000G_ EF 00 € 85 BBS 40. Fort _PROMPT , 109$ : 5808 
03 000000006 EF 00 &9 2 BBS #0, TEMP-FULL_PROMPT, .+3 
0000v 31 0286A BRW 116$ 
060000006 ' 3F 2 109$: PUSHAB SHIFT : 5812 
gp 8 8 PUSHL #4 
000000006 : F 02875 PUSHAB PASStY OUTPUT 
000000006 EF 3 FBO 678 CALLS #3,PASSWRITE_STRING 
FFFF 6862 fe oF 0 if PUSHAB ar 
2 DD 0288 PUSHL 
000000006 ai OF 0288A PUSHAB PAS$FV_OUTPUT 
000000006 _ EF 3 FB 02890 CALLS #3 PASSURITE, _STRING 
000000006 EF 9F 02897 PUSHAB ANSI_REVERSE~ 
04 0D 8 89D PUSHL i 
000000006 ai 9F O289F PUSHAB SS any OUTPUT 
000000006 EF 3 FB 028A5 CALLS 3, ;PASSURITE _STRING 
FFFF683A EF oF 0 Bac PUSHAB 
10 DD 0 8B PUSHL bie. 
000000006 Fr oF 8B4 PUSHAB PASSFV_O 
00000000G_ EF 3 FB O28BA CALLS #3 PASSURITE, STRING 
000000006 EF 9F 028C1 PUSHAB set ATT 
16 DD 0 8C7 PUSHL # 
000000006 ai 9F 028C9 PUSHAB PASSE V0 
000000006 _ EF 3 FB OOBCF CALLS a PASSURITE. _STRING 
000000006 EF 9F 02806 PUSHAB eae RESET 
4 DD 0280C PUSHL #4 
000000006 FF 9F O28DE PUSHAB PASS$FV_OUTPUT 
000000006 EF seatananil : FB BEd CALLS #53 3. PASSURITE _STRING 
65 pp ert PUSHL 
000000006 FF F O28F3 USH, Hea ouTP 
000000006 EF 3 «FB gr CALLS SASsonITe. STRING 
000000006 EF 9F 0 PUSHAB UTPUT 
000000006 EF 1 FB 02906 CALLS 1 ASSEV OUTPUT 
000000FC 8F DD 0290 PUSHL Hose 
07 DD 0291 PUSHL 
4 DD 0291 PUSHL #4 
000000006 EF 9F 0291 PUSHAB SYSSOUTPUT_NAME 
8 DD 0291D PUSHL #11 
BD 91F PUSHL 
000000006 a F 02921 PUSHAB FDL DEST 
000000006 EF 7 €B 02927 CALLS 4#7,PASSOPEN2 
000000006 FF OF 02926 PUSHAB FDL_DEST 
000000006 EF 1 FB 02934 CALLS #1, PASSREWRITE2 
000000006 EF 9F 02938 PUSHAB TEST 


15 : e 4-277 Page sn 
iE HeecH9Ne QGSGAS YARED WEAN taYPeb?Vcacorase.eus:1°20 
EDF ARE Generated Code ~Sep-1 seine 
v04=000 01 FB 0294 CALLS, #1 ,SHOW PRIMARY. SECTION + $825 
000000006 EF A ot it PUSHAB FDL DEST 
000000006 EF Ay fF 858 ; BRB 1138 ; 5831 | 
ee ee ee er eae ee 
coooonnns $e PE SSEeE UBS PASSE OUTPUT arg 
settee i EFF Opoee PUSHAB QUES_HINT 
ouTPU 
commons SbF are FREY TY rei 
000000006 EF FF OF CALS. Wt PASSURITELNZ . 5a38 
000000006 EF ne EF $F Oosee 1128: PUSHAB Suit 
4 2D UTPUT 
coed (te a eee 
oooo00006 Fk a 0 4 PUSHAB CATU 
2 BO Sema PUSHAB PASSFV_OUTPUT | 
000000006 65 Fe o29n1 CALLS #3, PASSWRITE_STRING | 
000000006 EF Ae cE SF 3088 PUSHAB ANSI_REVERSE 
TPUT 
000000006 Fe Pe Geer) FUSIMO PASSEY OUTUT a | 
¢ BD Reads PUSHAB PASSFV_OUTPUT 
| 000000006 65 Fe 0990 CALLS #3, PASSWRITE_STRING 
000000006 EF oe EF oF 0 ae PUSHAB ANSI_RESET 
UTPUT 
000000006 FP Haare UM Pasar OUT aan 
000000006 eF 4, 603 FB 0g9F0 PUSHAB C,ATY 
0 Bp dearp PUSHAB PASSFY_OUTPUT 
aren ae ee CALLS #3, PASSWRITE_STRING 5 5837 
000000006 EF - 693 FB OgA0 PUSHAL #0 
9 ef 3E 3 Ag VAS EDF S$AB_SHARING_TABLE_STA,-12(FP) 
F4 AD oooo000l6 AD 9F O2A1D ae EDF$AB_ SHARING. TABLE_KEY,-16(FP) 
FO AD 000000006 EF 9E OgAz0 —_e, © 
oo 2 ee CALLS #4, PARSE_INPUT 
000000006 EF oonsy 31 02k : 1138: BBS -RO-FULL_CHOICE, .#3 ; 5850 
03 000000006 EF oocoy 84 OSA p BRU iss ; 5854 
00000000 SF OF ve CALLS #1, CLEAR : 5856 
4 44 4H b EB OSae BBS #0, FULL_PROMPT,116$ 
009 Beppe EF ED bSace BBS #0. TEMP"FULL_PROMPT,.+3 
r , Maple dope ; 5860 
03’ o0000000G EF oosey $9 Bsaze Ry tS. 
000000006 FF 9F ENG 1168: PUSHAB § Bt 
cooonnns fb FYE SMS SESS TTY sea 
000000006 _ EF 3 


D 15 ' V2.4-277 Page 302 
Br8tp- 1986 19:38:30 DI SKSVMSMASTER’ EDF -SRCIEDFASK.PAS; 1° ¢80) 
F400 Generated Code ? at 
FFFFOGAD FF OF OBAT5 pene § 
OP OSarp PUSHAB PASSFY OUTPUT | 
700000006 83 Fb OoAKs CALLS #5 .PASSWAITE_ STRING 
000000006 EF A nnoG FF OF OgABA PUSHAB ANSI REVERSE 
¢ BD Beng FV OUTPU 
eoooon00s FM Gsisy URNS. PASBPY OUTPUT onan | 
00000000G_ EF FFFF6687 F oF AGF PUSHAB c ATY 
Ob Bb OEM PUSHAB PASSFV OUTPUT 
a8 OS EB OSAAD CALLS #3 ,PASSURITE, STRING 
000000006 EF Ae FE OF OZABS PUSHAB SEC _ATT 
6 BD OCABA PUSHAB PASSFV_OUTPUT 
cet) 2 Ne CALLS #3 -PASSURITE, STRING 
OO000000G, OF a nsses EF OF eat PUSHAB AN NSI_ 
4 DD O2ACF UTPUT 
om OS Fb OSD CALLS. Passe y auth _STRING 
000000006 EF ne POF ADE PUSHAB CALF 
U 
come | ode eee 
po0n0008 FF soo000006 FF OF OCAES PUSHAB CRLF SHI 
06 2 OUTPUT 
coooonne §f A Heae UBM FASE OUTPUT oan 
000000006 EF cr 9F 06608 PUSHAB ¢ATZ 
4 UTPUT 
commons fF BES FESS RTY oan 
000000006 EF A ei oF 0 B10 PUSHAB CALF SHI 
6 pd O¢B OUTPUT 
wee FO 6 Bs CALLS. Psy STRING 
000000006 EF POF 6 a PUSHAB C-AUA 
ou 
eessecnes Lt isate fALLS- #3 PASSURITE, _STRING 
000000006 EF A FEF Bis PUSHAB CRLF_S 
6 pd 0¢B OUT 
commons AaB SEC OEY 
000000006 EF POF B3¢ PUSHAB AUB 
UTPUT 
gx tmmooone FRE ERE FRY TY rn 
000000006 Br PUSHAB 
00000006 FF 9F e871 PUSH | 
cocooones Ft fe RSerr CALLS. #3 CPASSURITE STRING 
000000006 EF 3 FB OgB7F PUSHAB PASSFV OUTPUT | 
ooooooees fr CALLS” #1, PASSURITELN2 | 
000000006 EF eokey if . GRY leks. : $875 
00000006 FF 9F 02896 1175: PUSHAB Si 


——_—__——_, 


15 
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104-000 Generated Code if: 3ep-1984 99: 38: 3 DISKSVMSMAS TER: Veet Sh SRCIJEDFASK.PAS; 1 Page) vi 
000000006 B9 PUSHAB PASSFV_OUTPUT 


fF OOF 
006000006 EF oS FB OOBA CALLS a3 PASSWRITE _STRING 
000000006 FF 9F O2BAB PUSHAB S_H 
F DD 02BB PUSHL 
000000006 FF 9F 02BB PUSHAB PASSFY ouTP 
000000006 EF 3 §B 0oBB CALLS 3 PASSURITE STRING 
000000006 EF  9F 02BC0 PUSHAB ate UTPUT 
000000006 EF 1 §B 02BC6 CALLS Ai Se sunT TeLN2 
0000v 31 O2eBCD BRW 124$ ‘ 
00000000 8F DF 02800 119$: PUSHAL # : 5883 
990000006 EF 1 FB 02BD6 CALLS 4, CLEAR 
ov 90000006 EF 0 £0 02BD BBS *FULL_PROMPT,121$ : 5885 
03 000000006 EF BE BBS ;TEMP-FULL_PROMPT,.+3 
0000v 31 O2BED BRW 1955 
000000006 FF F OOBFO 121$: PUSHAB SHIFT : 5889 
4 DD O2BF PUSHL 
000000006 FF oF BF PUSHAB PAssty OUTPUT 
000000006 EF 3 FB O2BF CALLS #3,PASSWRITE_STRING 
FFFF6561 Fe oF co PUSHAB t or 
2 DD O2c0B PUSHL @# 
00000000G_ EF oF 0p PUSHAB et OUTPUT 
000000006 EF 03 FB 02C1 CALLS 5 -PASSURITE _STRING 
000000006 EF OF OOCIA PUSHAB ans RSE~ 
4 0B : €20 PUSHL 
000000006 FF oF C § PUSHAB S sey OUTPUT 
000000006 EF 3 FB 0 ¢ CALLS #3,PASSWRITE_STRING 
FFFF 6538 EF oF C2F PUSHAB C. AUD 
OF DD 02C35 PUSHL #1 
000000006 cf 9F 02C37 PUSHAB PASSFV 
000000006 EF 3 FB 02C3D CALLS #3 PASSURITE, _STRING 
000000006 EF 9F 02C44 PUSHAB SEC_ATT 
16 DD O2C4A PUSHL # 
000000006 FF OF O2C4C PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 0 C3 CALLS #3 PASSURITE _STRING 
000000006 EF 9F 02C5 PUSHAB ANSI_R 
4 OD O2ocsF PUSHL #4 
000000006 FF 9F 02C61 PUSHAB PASSFV_OUTPUT 
000000006 EF aia 3 FB C67 CALLS 3, PASSWRITE _STRING 
65 DD coe PUSHL al 
000000006 cf OF 02C76 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB cre CALLS #3,PASSWRITE STRING 
000000006 EF ene ; a eS ate nh SASSURI TELN2 
ooo000rFc §=8F sé oH PUSHL Hose : 5896 
7 DD C96 PUSHL # 
4 DD 029 PUSHL #4 
000000006 EF 9F O2C9A PUSHAB SYSSOUTPUT_NAME 
8 DD O2CA PUSHL #11 
D O2CA PUSHL # 
000000006 FF F O2CA PUSHAB FDL DEST 
000000006 EF 7 FB OOCAA CALLS #7,PASSOPEN2 
000000006 FF 9F 02CB1 PUSHAB FDL_D ; 5898 
000000006 EF 1 FB 02CB7 CALLS #1,PASSREWRITE2 
000000006 EF eupnenets ¥ e ‘ee CALS. } _ PRIMARY_SECTION ipa 
000000006 EF 9F O2cCB PUSHAB FDL_DEST « : 5902 


F 15 
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000000006 EF 91 Fe CDA CALLS #1,PASSCLOSE2 
Ov 1 CD BRB 124$ 
000000006 EF 9F O2CDA 122$: PUSHAB SHIFT 7 5908 | 
4 pp CE PUSHL #4 | 
000000006 FF F OOCE PUSHAB PASSFV_OUTPUT | 
000000006 EF 3 FB OOCE CALLS #3 PASSWRITE _STRING 
000000006 FF OF OOCEF PUSHAB S_H 
F po CFS PUSHL 
000000006 FF F OOCF PUSHAB PASSFV OUTPUT 
000000006 EF 3 FB OOCFD CALLS #3 PASSWRI TE STRING 
000000006 FF 9F 02004 PUSHAB PASS TPU 
000000006 EF 1 §B O2D0A CALLS AO SONT TELN2 
000000006 FF 9F 02011 124$: PUSHAB SH NtFS : 5912 
4 pp D17 PUSHL # 
000000006 FF F 02019 PUSHAB PASS$FV_OUTPUT 
000000006 _ ‘EF 3 §B O2Di1F CALLS #3,PASSWRITE_STRING 
FFFF6454 gf Ti 026 PUSHAB C AUE 
1 DD Oedec PUSHL # 
000000006 FF OF O2D2E PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 02034 CALLS #3 PASSURITE _STRING 
000000006 EF 9F 02038 PUSHAB ANSI_REVERSE~ 
4 DD 02041 PUSHL #4 
000000006 FF oF 043 PUSHAB pAssry OUTPUT 
000000006 EF 3 FB 02049 CALLS #3,PASSWRITE_STRING 
FFFF6O44E EF 9F 02050 PUSHAB 4 wf 
3 pp 056 PUSHL # 
000000006 fF F 058 PUSHAB oe OUTP 
000000006 EF 3 FB 0205 CALLS 3 PASSURITE, _STRING 
000000006 EF 9F 0206 PUSHAB ANSI R 
4 DD 02068 PUSHL #4 
000000006 EF  9F 0206 PUSHAB PASSFV_OUTPU 
00000000G_ EF 3 FB 8 07 CALLS a3 SASSOnI Ty. STRING 
FFFF6428 EF 9F OOD7A PUSHAB (.AUG 
3 pp D8 PUSHL # 
000000006 EF 9F 0208 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 0208 CALLS #3,PASSWRITE_STRING 
00000000 ~=«&F DF DSF PUSHAL #0° > 5914 
83 F fF 095 PUSHAB #0 
Fe OAD 000000006 EF gE 096 MOVAB EDFSAB_SYSTEM_TABLE_STA,-12(FP) 
FO AD 00000006 EF 3 DAS MOVAB EDF SAB SYSTEM_TABLE_KEY,-16(FP) 
00000000G_ EF Ss 4 DA CALLS #4 ,PARSE_INPUT 
Ov 11 0208 BRB 126$ 
DB 1258: 
OF 000000196 boy 9 0B 126$: cups 1550°25- W15 : 5929 
000000006 EF 1 9 Deo MOVE 38s #1,T : 5931 
: NPUT_VALUE , TEST+30 : 5933 
apooddies GF Soopooice EF 91 OSpbe eee Cap i SWE : 3320 
Ov 1 DDA BNEQ 1 
0000001FG EF a p DD ROVL a7 TEST#31 : 5942 
1G OEF F DES 130$: MOVL  EDFSGL_SECNUM,TEST+31 : 5946 
SneenaerS seis Fr bs DFO aie; Tey Testes + 3308 
Ov OF BLSS 133$ 
07 0000001FG EF 01 O2DF CMPL ——* TEST+#31,#7 


Blo 


00000006 
03 000000006 


000000006 


000000006 
000000006 


000000006 


000000006 


000000006 


000000006 


3; Routine Size: 11956 bytes, 


000000006 


F1 000000006 


Generated Code 


00838038 
EF 


EF 
00 
EF eta * by Gr 


~" 


; 000000006 Op 
Ov 6 
EF 4 
01 F 
00000000G EF 

EF ¢ 
5C 00000000G EF 
01 =AC 
00v 

51 

51 9 
co 1 
000000006 ae 

01 8F 
000000006 EF 

EF 9 
00v 35 


Ss 


NOVCVTCIO “SSS SOMOO—VCMWO—"GTO ONOO "MM "OOVUWMNN"SOCVCC— 
FFD 999 (DO 999 OD M M®WMOWOVUWISO FD "WOW NNO—-—- Wo0crT om 


00 
00838038 8F 
EF 04 
00V 
0 
00838038 F 
EF 4 
00000000G_ EF 
Routine Base: SCODE + OA 


5E free 
OF 000000196 
000000006 


Vv 
Vv 


mPuwn 
SoMcomoma 
SouULonomm 
mwno 

owoe 


Sha tn) 


ow 


990 


" 


—FM—mMoO 


—~o— 


1 


000 


E9 
EA 
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mmm MMMMMMMMMMMMMMmMmMmnmmmmmmnmmmmemmmmermnemnrnenenerncn 
oO SBN RE, IN On 
oO>c ODNVNID VINVO & NENMNOSOA LG VEO PWS S MOLSON 
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Se 
Se 


= 
Ww 
Ww 
wR 
oe 


145$: 


p-1984 19:38:50 DISKSUNGMASTERSCEDF<SRCJEDFASK.PAS:1° <4) > 


BLEQ 


134$ 

’) 

r) 

#11763768 
#4,LIBSSIGNAL 

#0, FULL_CHOICE,.+3 
DEF HEAD DEF _ CURRENT 


TEST 
#2, CURRENT_£0_ TEST 
#0, INCR_ CURRENT 


TEST 

#2, CURRENT_EQ_TEST 
DEF CURRENT .R12 
1(RT2) 


TEST 
#2, CURRENT_EQ_TEST 
RO.147$ 

# 

* 

rg 

#11763768 

a4 L 1BSSIGNAL 

14? 

# 

#0 

#11763768 
#4,LIBSSIGNAL 
TEMP_FULL_PROMPT 


ASK_TEST_SECONDARY_VALUE : 
“WORD  “MZ> 


-275(SP),SP 
TEST# 5,415 


2 

TEST 

4 

#1, TEST 
FP,R 

he QUESTION 

#0, SYSSINPUT_ERROR ,4$ 


; 5954 


5959 


: 5963 
3; 5967 


5969 


5985 
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Oa n000 Generated Code g- 900-1382 99:38:93 PIEKSUMSMASTER  FEDF-SRCJEDFASK.PAS: 1 (84) 
000000006 EF 9F PUSHAB INPUT_DESC : 6767 
000000006 EF 6 FB O0084 CALLS #1, STRSFREE1_DX Fane 
; Routine Size: 60 bytes, Routine Base: SCODE + 0D844 
0 THE_QUESTION: : 6065 
SE 10 oors 0 sueLe nee 
fe AD Be CLRL - ) 
gp 000000006 gf A MOVAB PASSHANDLER, (FP) 
1 06 F MOVL R1,R 
900000006 EF 1 CLRB_ © SYS$INPUT_ERROR : 607 
F8 AD 000000006 FF 2F o1 MOVAB SYSSINPUT~COND HANDLER, FP-8 + 607 
00v00000000G_ ‘EF 0 f BBC #0, TEMP_FOLL_PROMPT,2$ + 6075 
000000006 FF F 0 PUSHAB SHIFT : 6077 
000000006 ¢ 4 60 5 PUSHAB PASSFV OUTPUT 
00000000G_ EF FFFF6279 t fB 3 p coals #5 ,PASSURITE STRING 
004 PUSHL 0 
000000006 fF oF 0045 PUSHAB PASS$FV_OUTPUT 
00000000G_ EF 3 FB 0004 CALLS #3,PASSWRITE_STRING 
000000006 EF OF 0058 PUSHAB PASSFV_OUTPUT 
000000006 EF 1 FB 0005 CALLS #1 PASSWRITELNZ 
__, 07 000000196 EF 91 OOD 28: CHP TeSt#25.0 ; 6083 
000000006 EF 0068 PUSHAB CRLF _SHIFT : 6085 
000000006 ai oF $0038 SHAB PASSFV_OUTPUT 
000000006 EF lees 03 fe 200"8 CALLS #3 ,PASSURITE_STRING 
19 DD 0088 PUSHL #25 
000000006 EF 9F 00085 PUSHAB PASSFV_OUTPUT 
000000006 gf 03 FB 0008 CALLS #3 PASSUAL TE STRING 
1 0000001€6 EF 91 00092 4$: CMPB Test 0,433 : 6088 
oobdv 3 $09 Beg és 
000000006 FF 3F a0%E PUSHAB CRLF_SHIFT : 6090 
6 DD 0004 PUSHL # 
000000006 ai OF OA6 PUSHAB PASS$FV_OUTPUT 
000000006 EF renee 3 FB OAC CALLS #3 ,PASSURITE_STRING 
58 po 9 PUSHL #40 
000000006 FF F B PUSHAB PASSFV_OUTPUT 
a 000000006 ; oF 3} Srey ath tard eens 
66 pp ce PUSHL #6 ~ 
000000006 ai F SHAB PASS$FV_OUTPUT 
000000006 EF -saceete E FB & CALLS #5 PASSURITE_STRING 
5G pp ; PUSHL #22 
000000006 ai f SHAB PASS$FV_OUTPUT 
000000006 EF 3 «FB CALLS #3,PASSWRITE_STRING 
000000006 FF OF if PUSHAB CRLF_SHIFT 
6 pp F PUSHL 
000000006 EF 9F OOOFA PUSHAB PAS$FV_OUTPUT 
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24-277 


VAX-11 Pascal Ve 
DISKSVMSMASTER: LEDF. 


71984 93:38:90 


Tee 
~tep- 


Generated Code 


000000006 EF 


w ~ 

oa oa 

So So 

Oo oO 

*e es 
o o Oo 
2 2 2 
_ — — 
ae i. 4 a 
fa a i 
n”n Se) a ” 

o — 6 L-<) — 1 
us D>u . Dw 
e Ge w ae 
ans —— Oo oe 
a Soa & -u Da 
= os . -—-— Of 
a ww So c Lad 
”n >uw / wn >wW 
<i wt +00w 1 “<s 
ana ea &§-aagwu #2. 

“Ow = 2s 2 t.) WW ee 
mM mmdcmeunwrveoc.oam 
BVvVSBOA RO BV’ VAABY 

a 
v2ilu aan 2.242 
artrre Nsw FTeOTuTt 
ANIM ID > JOMWMw) UW) 
ie eee ts) Peete 
Ve0000OMEFE<4M0A00~00 

a 

o 


o m 
oa oS 
So - 
oO oo 
**« se 
Oo 
2 
— 
i: 4 
- ~m 
w + 
— 6 . 
Dw . 
ae uw 
—— Oo a om 
== =< > awn 
os . -— ate 
"wm So ‘toes 
>wn /m ~~ moc 
uct +00w +O 
tg BLN A “WO00000000000000000008 0000000000 
. 8 
LM WTF NOR- WO COSCO SCOSCOOOOOOOOOOOOMOCOOOOOOOoOO 
QA RBRVS rrr rr KKK K meme eee eK eee eee eee rer 
2 | a I I I I I cD ed de ee ce ee ed ed ed ed ed ed ed) wd nd) I) 
” mee @@Maaaacaagaaaaaadaadaadaagcaaadcaaaqaaaaa 
ze NI NMWAANAANAMNAMNMANMMNHMNMMN NMWMWWMMWHKHMKHMWMMWMMMNMMYMMNNMNNN) 
DV BD I ODD BDA ht te ee te a a te ad a a tg nd ay ad dt te 
2< SRS BSS SOOO OAOOOOOOOOOHHOOOOOOHNANNLLNASa 
aw EFF aeo@moezw « eeeeveee8e8e eoeeeeeeeseeteeeeeeeeeeee 
AA 
on 


SF OLWMNUVUNDOME O- DwOWO OOS LUNVE MALO DOL RK MUO DOL K— MEO DOOew KM O WO 
BO NOON AT TF TUUNUN OO OPR-F-PF- ODD DWDODDDOOOOOOOS feet ce OOOooow 


BAOC LK —OVOWOA OO LO OC u 


a 
Mu fu mMouwrvuou 
Own woo 


FFFF623F 
000000006 


00000000G_ EF 


28 0000001EG 


30 


00V00000000G EF 


: 


000000006 F 


6 
F 
; 
30 


000000006 F 
FFFF621A 


000000006 EF 


000000006 Fe 


000000006 EF 


> > > 
wrVocouwcod ddd ddd de eee eee eee eOoae ee ee eeccce 
WOOMOWNOOOODODOOOOOOOODOOOODOODOOOOOOOOOOOO 
o SOOCOOSCSOSCSOSOOSOOSOSOOSSOSSOSOSOSSOOSOOOSOOOSS 

a © SOCOCOSSOSOOSSOOSCOSOOOSOOSOOOOOOOOOOOSoOO 
w w 
- - 
o So 
So So 
So o 
So So 
oS So 
o Oo 
oookw. Ou 
minimum wo 

oOo 

So ~~ 

So o 

oS 

So 

o 

So 

So 

o 

”" wT 

Oo ~~ 


15 ; ; 308 
EHIE=IQU QUSHESE  NMsDIeSetsthe! Behe ?ZZeseorace.nneis"20 
ad + Generated Code -Sep- sae 
A 18F . 
eA iC ‘DISPL 
“DISPL 106 
, i aa 
6A iC ‘DISPL 106 
A 1¢9 ‘DISPL 106 
Boy 1¢8 “DISPL 168 
6A 1CD -DISPL 106 
Ooov atc ‘DISPL 148 
Sexe] SBERRE Mt 
Ov gis : 1 
3 1b9 ‘DISPL 408 
me SHEE ie 
06A O1DF “DISPL 106 
Bh lH 
OA OTE ‘DISPL 106 
4 DISPL 128 
20QV Hes “DISPL 138 
000v Riee aru «17S ; 6107 
7" @ 1$:  PUSHAB CRLF_SHIFT 
waves Ta Fi PUSHIAB PASSFV_OUTPU 
cocoons FE FE SBTe HKD PASSE OUT 
000000006 EF i OF EB BoIFe PUSHAB AUN 
> 8 ieee PUSHAB PASSFV_OUTPUT 
weorneers Oe CALLS #3, PASSWRITE_STRING 
00000006 EF 3 FB 00211 AL . 6113 
“ 10PPY ar bodte PUSHAB CRLF _SHIFT 
000000006 FF FF B0cie 128: PUSHAB CR ies. 
oooo00006 FF oF 00 3 CALLS. #8 PASSURITE _STRING 
oooooo00s eF 8, «(OS FB 00288 PUSHAB ¢- AUD 
BP 00s38 PUSHAB PASSFV OUTPUT 
ies 000000006 EF +4 0 3 CALLS PASSWRITE_STRING ae 
000000006 B 0025 gab 
000000006" fF or 0248 138: ee le mee 
S BD 2068 PUSHAB PASSFY_OUTPUT 
omen 27 CALLS, #3, PASSURITE, STRING 
000000006 eF OSE PUSHAB CA 
SE Bp és PUSHAB PASSE OUTPUT 
“a: O8 fp g CALLS, #3,PASSURITE. STRING ass 
000000006 * : BRU 
000000006" FF $F £3 168: PUSHAB angel 
000000006 Ph 00588 CALLS, #3 PASSURITE. STRING 
ooo0000c EF 4, 8603 FB 00c8s PUSHAB CUO 
> TPUT 
ooooov00s fF SF 00292 PUSHAB PASSFV_OU 
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en ten Generated Code ~3ep-1984 99: 36: 9 DISKSVMSMASTER: ete ce SRCIJEDFASK.PAS; ° 4) 
LL WRITE_STRIN 
000000006 EF opty 98 CAL S 1 gPAss RITE_STRING 
000000006 f i i 15$: PUSHAB CRLF SHIFT : 6128 
000000006 EF 8? PUSHAB PASSE OUTPUT 
000000006 EF FB 60 CALLS 3 PASSURITE STRING 
FEFFOI7F EF 9F 0028 PUSHAB t ttf 
1 po BD PUSHL # 
000000006 Fe F O0OBF PUSHAB PASS$FV_OUTPUT 
000000006 EF enemenie ; FB 0 C5 CALLS aa PAssuniTe. STRING 
56 pp 0§ PUSHL 
000000006 ai F 002D PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB OO2DA CALLS #3,PASSWRITE_STRING 
FFFF6179 FF OF 6 E1 PUSHAB C.AUS 
8 OD 00267 PUSHL #24 
000000006 EF  9F 002E9 PUSHAB PASS$FV_OUTPUT 
000000006 EF 5 FB 0 Ef CALLS #3 PASSURITE _STRING 
000000006 FF 9F 00 8 16$:  PUSHAB CRLF _SHIFT 5 6134 
6 DD OO2FE PUSHL 
000000006 ai 9F 00300 PUSHAB PASSFV OUTPUT 
000000006 EF 3 FB 00306 CALLS #3, PASSURITE _STRING 
FFFF6165 EF  9F 0030 PUSHAB (C.AUT 
2— DD 0031 PUSHL #46 
000000006 FF 9F 0031 PUSHAB PASS$FV_OUTPUT 
000000006 _ EF 3 FB 90 18 CALLS #3 PASSURI TE _STRING 
0Ov 11 9 e ae BRB 18$ 
000000006 FF OF 83 4 18$:  PUSHAB CRLF _SHIFT 1 6143 
6 DD 0032A PUSHL 
000000006 ai 9F 0032C PUSHAB PASSEV OUTPU 
000000006 EF 3 FB 00332 CALLS #3 PASSORITE. _STRING 
FFFF6169 EF  9F 00339 PUSHAB (.AUU 
28 DD 0033F PUSHL #40 
000000006 ai 9F 00341 PUSHAB PASTY OUTPUT 
000000006 EF setebiatanes 3 Fe 0 t CALLS a3 PASSA TE STRING 
a pp 0354 PUSHL 
000000006 cf F 00356 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB ¢ CALLS #3 PASSURITE _STRING 
FFFF6167 ai OF PUSHAB C.AUV 
3 pp 9 PUSHL # 
000000006 FF F p SHAB PASSFV_OUTPUT 
000000006 EF seas 3 FB } CALLS aa cAseun Te. STRING 
5G bb : PUSHL #4 
000000006 ai F PUSHAB PASSFV_OUTPUT 
000000006 EF acueaal 3 FB CALLS #3 PASSWRITE, STRING 
65 DD ; PUSHL #3 
000000006 ai 9F 0039 PUSHAB PASSFV_OUTP 
000000006 EF 3 «FB CALLS &#3,PA ae TE "STRING 
= ~ : Q000001EG EF 3A A mOVZBL ESTs oR : 6146 
06 By AE -DISPL ° o 
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EDF ASK 16-Sep-1984 00:56: VAX-11 Pascal V2.4-277 P 11 
4-000 Generated Code 97300-1382 90:38:93 TP KSUMSHASTER FEDF SRCJEDFASK.PAS: 1 1 e)° 
FO AD 9F 00437 PUSHAB -16(FP) 
000000006 EF i. 4 £8 cs CALLS 4 ,PARSE_ INPUT 
anne F rh} 208: PUSHAL i : 6160 
F4 AD 000000006 EF  9E 0044 MOVAB_ EDFS$AB_SOURCE_TABLE_STA,-12(FP) 
F4 AD i 45 PUSHAB <12(FPY 
FO AD 000000006 EF 96 0045 MOVAB  EDFS$AB_SOURCE_TABLE_KEY,-16(FP) 
FO AD 9F 0046 PUSHAB <16(FPY 
000000006 EF 4 fe 46 CALLS #4,PARSE_INPUT 
0000v 31 0046A RW 26$ 
000000 : F OF 4g 21$ PUSHAL # : 6169 
F OF 004 PUSHAB # 
F4 AD 000000006 EF  9E 00476 MOVAB  EDFS$AB_RU_TABLE_STA,-12(FP) 
F4 AD 9F O047E PUSHAB -12(FPY 
FO AD 000000006 EF  9E 00481 MOVAB EDFS$AB_RU_TABLE_KEY,-16(FP) 
FO AD 9F 00489 PUSHAB -16(FPY 
000000006 EF 04 €B O048¢ CALLS #4,PARSE_INPUT 
0Ov 11 0049 BRB 26$ 
00000000 8F DF 00495 22$:  PUSHAL #0 : 6178 
8F OOF 00498 PUSHAB #0 
F4 AD 000000006 EF  9E 0049 VAB__ EDF S$AB_CARR_TABLE_STA,-12(FP) 
F4 AD 9F 004A6 PUSHAB -12(FPY 
FO AD 000000006 EF  9E 004A9 VAB_  EDF$AB_CARR_TABLE_KEY,-16(FP) 
FO AD 9F 00481 PUSHAB -16(FPY 
000000006 EF 04 FB 00484 CALLS #4,PARSE_INPUT 
Ov 11 00488 BRB 26s 
00000000 8F ODF 00480 23$:  PUSHAL # : 6187 
00 8F  9F 004C PUSHAB #0 
F4 AD 000000006 EF  9E 004C6 VAB__ EDF $AB_FORMAT_TABLE_STA,-12(FP) 
F4 AD OF OO4CE PUSHAB = 
FO AD 000000006 EF 9E 00401 VAB_  EDF$AB_FORMAT_TABLE_KEY,-16(FP) 
FO AD 9F 00409 PUSHAB = 
000000006 _ EF 04 FB 9940¢ CALLS #4,PARSE_INPUT 
OV 11 004E BRB 26§ 
00000000 8F DF 00465 24$:  PUSHAL #0 : 6196 
00 8F 9F 004EB PUSHAB #0 
F4 AD 000000006 EF 9E OO4EE VAB_ EDF SAB_TYPE_TABLE_STA,-12(FP) 
F4 AD OF O4rg PUSHAB = 
FO AD 000000006 EF  9E O04F MOVAB EDFS$AB_TYPE_TABLE_KEY,-16(FP) 
FO AD 9F 00501 PUSHAB -16(F 
000000006 EF 04 FB 00504 CALLS #4,PARSE_INPUT 
Ov 11 3300 “ BRB 26$ 
000000236 EF 000000006 EF 00 ; $:  MOVL —__INPUT_VALUE, TEST+35 : 6209 
4 QOO0001EG EF 9A 0 1 $3: mOVZBL TEST#30-RO : $593 
50 4 C4 0051F ULL2 #4,RO 
0 D 3 2 INCL R 
03 000000006 EF 0 S RO,SEC_TYPE,.+3 
0000v C BRW 65$ 
50 S00001EG EF A F MOVZBL TEST+30,RO : 6217 
EC AC 00000000GEF40 po 6 MOVL SECONDARY _MAXCROJ,-20(R12) 
30 QOOOO01EG EF 9A F MOVZBL TEST+30,RO : 6219 
00000098 BF pi 46 CMPL ~—s RO, #1 
OOVFFFFSF81 EF " f rt} tad RO,C.AUX, 30S 
FFFFSFSF = EF SF 0557 PUSHAB C.AUY : 6227 


ee ll 


Bh Page 312 
-1984 256: X-11 Pascal V ¢ 
at + Generated Code oe ats 7 90:36:93 Nite RE SVMSHA TER: Vesseede SRCIJEDFASK.PAS;1 (54) 
08 ) ) PUSHL #8 reut 
commons StH Bes Sf an 
00000000G EF by ‘9 9 on _—~ 
3B9AC9FF 8F EC bby } it 30$: aa Atal etl ts 
F 9F 0057 PUSHAB C.AUZ b 
cnooons PP RHEE Bitte Plaey ute 
00000000G_ EF yeaenenne: 03 F 586 CALLS #3, PASSWRITE STRING 
ae ee ee 23 
conor EAB Beary oxry 
a ff 44 b23/ CALLS #3 PASSURITE, STRING 
wanna C fi f8 O5A4 PUSHAB sani 
00000000G_ EF , i 44 Raat pt #1 ,.NUM_ EN 
EC AC 0D 00360 PUSHL =-20( ig # 
F 9F 0058 PUSHAB PASSFV 
00000000G_ EF sscartaitet O3 ° Fh 34 sats oye SR SSOnI TE. INTEGER 
29 ~=0d 005C2 PUSHL (#41 ; 
coonas er omnes FEF EEE BO FEL OT ca a 
- 000000006 EF 9F eae 34$: PUSHAB Aisi RSE~ : 
f BD 8207 puss OP ee OUTPUT 
0000G EF apaneean Fe 44 Opape CALLS #3, PASSWRITE STRING 
SEN tend LE 3 
Soreness Ft Pe bocce ee #8 PASSURLTE. STRING 
00000000G_ EF 03 FB OO5F4 C g eect 
oooooo0es &F $F O0st8 = FUSHAB ANSI RSE 
00000000G_ EF waueueens Fe +4 09609 ian eal STRING . 6239 
52 94 00610 CLRB 3 
EC AC oF B0e1¢ PUSHAB -20(R12) 
F 061 CALLS #1,NUM_LEN 
eoeeteee fF gf fe boate CMPL RO,48 
08 § 
w oo Ue 
5 94 36$: CLRB R 
-20(R12) ,4#999999999 
seoacorr er ec AC BL GOSS eae Bo 
SHES sus. UE. Bn 
Ov eeesecr 32 $7 O06 Bk Byatt pe 
rrresee” 08 go Oss) ARM BR 
eooeones 5 5 CALLS i aa euei re STRING 
00000000G_ EF by fo ; Has ae a 
OF 40$ PUSHAB c AVD : 
FFFFSEDG FY OF OGLE Gos: PUSHAB  ¢ . 
00000000G_ EF bp 656 PUSHAB PASS$FV_OUTPU 


16 +. - V2.4-277 Page 313 
moran F 1B-Sep-1984 19:38:93 IS cSUMSMASTER. Cébr-SRCIEDFASK.PAS;1. ce) 
Vo4-800 Generated Code ar tees CALLS #3,PASS$WRITE_STRING » 6251 

000000006 EF A Y B i ais: BURA, #9 : 
F oF 1439 
aed GFF OOF eg CALLS” #8, NUMBER_ INPUT : 6253 
F 3 FB 6 g RO ° 
000000006 2 £8 Bier NOVZBL TEST#30, 
0 0000001EG FF D1 CMPL RO,#1 
vanaemdies >a Oov ie $87 hada ee : 6263 
OVFFFFSE7B EF Eb] 9008? BBC #0. VOATASSI 46$ 3: 6 
6586 EF 00 £1 0069) ATA+248,43 
ovon000es?8 65 oooo0rsc 14 Di 00699 a a be : 
TEST#39 | | 
000000276 bu 08 Behe peat 46s ; 6270 
PU | 
gb dtok hk 
00 Dp Gene PUSHE  #11763768 
mmm SR CALLS #4, LIBSSIGNAL : 6272 
foommee. AE 000000276 EF dT DOSED 468: a $1+39,-20(R12) 
OOw 18 Odece GL =20(R12) RO 
50 g_ AC CE 006C CHP $1439, 80 | 
50 000000876 EF, bt O06CB BEG 6S ; 6278 
ee 
00 
RRS sey PUSHL 411763768 
00858058 be FB OoeeO CALLS #4, LIBSSIGNAL 
000000006 EF Boy 59 hoces ect, le Wl donde ; 6282. 
BA BF O00000TEG EF 91 sa 508: Shes 35g) nial 
01 000000276 EF D1 0063 C ! 
OOV 19 OOGFA BLSS TEST+39,-20(R12) 
ec ac ooooonz7s gFy a Reet ER : ese| 
Sams: fle 8 
BF Db over PUSHE 11763768 
cmerpere® Be $s CALLS #4, LIBSSIGNAL | 
eosncees. oF dov 1% oort9 BRB 59 ; 6300 
00000276 EF 3 OOriB 55s: STL —_TEST#39 
v 1439, =20(R12) 
EC AC 000000276 EF pI of 3 aree 383 + 6306 
OY DB 00790 578: PUSH, 
ta oe 
00858038 BF =D 00733 CALLS #4, L18SS1GNAL 
000000006 EF 740 588: 5 6310 
91 fe 208: CMPB TEST+#30.#86 ; 
56 BF O0DD0DIES EF 91 00740 608: NEG OSS 
74A 
000000276 FF 0§ tan peo obs 


16 
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6-000 Generated Code -Sep ae 382 9: 38: 93 DISKSVMSMASTER: free SRCJEDFASK.PAS; 1 Page 
14 000000276 EF 01 007 CMPL _—«~ TEST+39,#20 
V } 7 § BGEQ os 
DD 00758 PUSHL # : 6318 
DD 0075D PUSHL # 
DD 7 F PUSHL # 
00838038 8F DD 00761 PUSHL #11763768 
000000006 EF 4 FB 00767 CALLS #4 L 18SS1GNAL 
0 00000016 f 2A O76 65% Mov? L TESst+30,R 3 6322. 
00v000000006 EF 0 €0 0077 BBS RO, SEC_TYPE,67$ 
bt 000000196 i 51 Hh cure TegTs25, 415 
00 by 3 3 9 BRW $53 
07 000000196 EF 91 0078C 67$: CMPB TEST#25,47 : 6330 
00v 12 0079 BNEQ 693 
FFFFSD8S EF 9F 0079 PUSHAB C.AVF : 6332 
09 DD 00798 PUSHL # 
000000006 EF  9F 0079D PUSHAB PASSFV 
000000006 EF 03 +=FB O7AS CALLS #3 PASSURLTE. _STRING 
000000006 Ef oF O7AA PUSHAB ANSI RE ERSE~ 
000000006 EF 9F O07Be PUSHAB PASS$FV_OUTPUT 
000000006 EF 03 FB 0078 CALLS #3, PASSURITE _STRING 
FFFFSD67 EF  9F OO7BF PUSHAB C.AVG 
03 pd 007C5 PUSHL @# 
000000006 EF 9F 007C7 PUSHAB PASS$FV_OUTPUT 
000000006 EF 03 FB 007CD CALLS #3 PASSURITE _STRING 
000000006 EF 9F 00704 PUSHAB ANSI_RES 
4 DD 007DA PUSHL 
00000000G_ EF 9F 0070C PUSHAB PASSFV_OUTPUT 
00000000G_ EF 03 FB OO7E2 CALLS #3,PASSWRITE STRING 
rset Gh Barer pu 
000000006 ai 9F 007F1 PUSHAB PASSE OUTPU 
00000000G_ EF 3 FB 007F7 CALLS Hatin ee STRING 
O0v 11 OO7FE BRB 3 
81 8F O000001EG EF 91 00800 69$:  CMPB  TEST+30,#-127 > 6334 
00v 12 00808 BNEQ 71$ | 
FFFFSD24 EF 9F OOBOA PUSHAB C.AVI : 6336 
14 OD 00 1 PUSHL #20 
000000006 FF 9F 0081 PUSHAB PASSFV 
000000006 EF : FB 0 1 CALLS a3 HA a _STRING 
Odv 11 1F BRB 73§ 
FFFFSD21 fe oF 1 71$: PUSHAB C.AVJ ; 6340 
2 pp 7 PUSHL #i8 
000000006 ai F 00829 PUSHAB PASSF 60 
000000006 EF 3 FB O082F CALLS 3 PASSMRITE, _STRING 
000000006 FF i 08 6 PUSHAB thir’: 
000000706 Fr oF O83E PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 «FB 4 CALLS #3,PASSWRITE_STRING 
FFFFSDO9 a F PUSHAB ¢ CL AVK 
aonags ex mmommne HEF Bh Ee Ba 
oovdoospoone EF 3 £0 9 73$: #48 P gf Rrur. 74$ > 6342 
000000006 EF 9F 00 PUSHAB PASSFV 
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OOmnn00S F vnnare EE SR 
sia? EF + OBS 
00000000G_ EF 63 FB SAD 
000000006 4 9F 00884 
00000000G_ EF 1 FB OO8BA 
000000006 Fe 44 pact 
00000000G EF  9F 008C9 
00000000G _ E 68 FB 194 
000000006 EF  9F 008D6 
00000000G_ EF 01 FB td" 
00000011G EF 000000006 fr 70 OO8E 
OMS He a Be 
FO AD 8 9F OO8FC 
00000011G EF  9F OOBFF 
00000000G_ EF 02 FB 00905 
00000000G EF  9F 0090C 
000000116 Fe oF oats 
00000000G_ EF 2 FB 0091 
00000014G EF 00000004G EF g0 QO91F 
00000010G EF 00000000G EF C $08 A 
00v00000000G_ ‘EF 00 €1 00955 
ooonorne By Ae 
7E 000000116 fr ze ORE 
50 000000156 fr + Boace 
QOOOOOFF 8F ODD 00937 
000000006 Fe 9F 0095D 
00000000G_ EF 5 FB 00963 
000000006 EF 9F Bagh 
00000000G_ EF hy ‘e Bao 
000000006 ff 9F 00979 
000000006 FF 1 f6 97F 
7 000000196 05 4 $3 “ 
0000v Hy 98F 
4 SBS EF F 236 
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#1,PAS$LOOK_AHEAD 
#49, PASSFV_INPUT, 76$ 
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23 FV_INPUT 
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#3,PASSREAD_STRING 
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TEST+17,#126 
95$ 
TEST+17 
#1, STRSFREE1_DX 
#0 
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a LIBSSIGNAL 
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c a 
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1128: 


VAX-11 Pascal 
DISKSVMSMASTER 


#3, PASSWRITE_STRING 
ANSI RESET 
PASSFV_OUTPUT 
#3,PASSWRITE_STRING 
¢,AUN 
PASSFV_OUTPUT 
#3, PASSURITE_ STRING 
/ 
EDESAB YES_NO_TABLE 
EDF SAB YES_NO_TABLE 
#4, PARSE_INPUT 
INPUT_VALUE , #1 
98$ 
RO 
RO, TEST +43 
TEST+25,411 
TEST+26 
103$ 
I $1+30,#119 
#0, TEST+43, 103$ 
#0 
#0 

1763768 

LIBS$SIGNAL 
EST+25,a12 
$1+30,#-120 
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8 


1 

ri fap-cmsecr 
Be aSiasyT 
128° 
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; 6438 
_STA,=12(FP) | 
-KEY,=16(FP) 
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3 6447) 
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v04-000 Generated Code Haat fi 99: 38: 93 PL EKSUMSMASTER FEDF -SRCIEDFASK. PAS; ° ( (3) 


FFFFS9BE Fe 9F 00808 PUSHAB C.AVO : 6489 
8 gp BD PUSHL # ’ 
000000006 FF F OOBE PUSHAB PASStY OUTPUT 
000000006 EF FB OOBE6 CALLS PASSURITE. STRING 
000000006 FF 9F OOBE PUSHAB ANS RSE~ 
4 2 BF PUSHL 
000000006 FF F OOBF PUSHAB csr OUTPUT 
000000006 EF 3  §B OOBF CALLS , PASSWRITE_STRING 
FFFFS96C FF oF co PUSHAB AVP 
3 pp 9¢0 PUSHL 
000000006 EF sceaniietenty 55 PB oA CALS. ear _STRING 
000000006 FF OF be19 PUSHAB ANSIR 
4 OD OciD PUSHL 
000000006 Fe OF OOCIF PUSHAB PASSFV_0 
000000006 EF 3 FB 00C25 CALLS #3 PASSORITE. _STRING 
FFFF S946 cf 9F 00C2C PUSHAB (.AVQ 
3 pd 00C32 PUSHL @# 
000000006 ai 9F 00C34 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OOC3A CALLS #3,PASSWRITE_STRING 
00000000 8F DF 00C41 PUSHAL #0° : 6490 
00 8F 9F 00C47 PUSHAB #0 | 
F4 AD 00000000G_ EF 9E OOC4A OVAB EDFSAB_UIC_TABLE_STA,-12(FP) 
F4 AD oF Bpteg PUSHAB <-12(FP 
FO AD 000000006 EF 96 00C5 MOVAB EDF$AB_UIC_TABLE_KEY,-16(FP) 
FO AD 9F 00C5D PUSHAB <-16(FPY | 
000000006 EF 04 FB 00C60 CALLS #4,PARSE 
0000002CG EF 000000006 EF 00 00C67 MOVL EDESGL ONE vUIC. TEST +44 : 6497 
65 8F OOOOOOIEG EF 91 00C72 1148: CMPB TEST+30,# : 6501 
03 13 OOC7A BEQL sis + | 
0000v 31 OOC7C BRW i17$ 
50 (D4 OC/E CLRL RO : 6505 | 
oe 6m 50 00 00C81 116$:  MOVL Ath} 
000000006. EF 01 FC AC 00 FO 0C85 INSV 4(R12) ,#1,EDFSGL_PROT_MASK : 6507. 
EE 50 1F €3 OOCBF AOBLEQ 180,168 | 
FFFFS8E3 EF  9F 00C93 PUSHAB > 6509 
09 DD 00C99 PUSHL 53" 
000000006 FF 9F 00C9B PUSHAB PASSFY OUTPUT 
000000006 EF 3 FB OOCAI CALLS 5 -PASSURITE _STRING 
000000006 cf 9F OOCA8 PUSHAB ANS ERSE~ 
4 ODD CAE PUSHL @ 
000000006 FF 9F 00CB PUSHAB Fe casy OUTPUT 
000000006 EF 3 FB 00CB6 CALLS #3,PASSWRITE_STRING 
FFFFS8CS Ff 9F 00CB PUSHAB C.AVS 
3 pp CC PUSHL @# 
000000006 ai F O0CC PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB O0CC CALLS #3 PASSURLTE _STRING 
000000006 FF 9F 00CD PUSHAB ANSI_RESET 
4 pp CD PUSHL #4 
000000006 Fr F OOCDA PUSHAB P S$FV_OUTP ut 
000000006 EF 3 FB ced CALLS “PASS URITE _STRING 
000000006 FF 9F OOCE PUSHAB caer _SHIFT 
6 pp CED PUSHL 
000000006 ai F OOCEF PUSHAB PASS$FV_OUTP Put 
000000006 EF 3 FB OOCFS CALLS #3 PASSu WRITE_STRING 
FFFFS88A ai oF cre PUSHAB C.AVT 
2 dd 0000 PUSHL #2 


H 16 
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VO4~000 Generated Code 5: ~Sep- 1984 98: 38; 83 1 SkSVMSA ASTER EEDF <SRCJEDFASK.PAS;1 (8%) 
000000006 EF  9F 00004 PUSHAB Bassey OUTPUT 
000000006 EF 3 FB ay ALLS PASSWRITE_STRING 
sooooage F OF Bot PUSH, — 
F4 OAD 000000006 EF E DTA MOVAB EDESAg PROT_TABLE_STA,-12(FP) 
FO AD 000000006 EF 9€ 00D é OVAB_ EDFSAB_PROT_TABLE_KEY,-16(FP) 
900000006 EF i FB 5 p See al paRse INP 
00000306 EF 000000006 EF D0 00D MOVL  EDFS$G End " PMASK, TEST+48 : 651 
5 aed te if i b4e 117$: CPE ia 7340, m5 : 635 
esses OO HB FN, I, 525 
8 OD 00054 PUSHL *a : | 
000000006 FF oF Soe PUSHAB PASSFV_O 
000000006 _ EF 3 FB 905¢ CALLS #3 PASSURLTE, _STRING 
women Fe Be eee ene 
000000006 EF 9F 00D6B PUSHAB Se ssry OUTPUT 
000000006 EF eel 03 Fe 90071 CALLS #5 ,PASSURITE_ STRING 
coonnoos fF BRS Be Ha 
> 
000000006 EF 65 FB 00D86 CALLS #3 PASSURITE, _STRING 
000000006 cf OF 90080 PUSHAB AN ng 
000000006 ee oP Bp9s BUSHAB P Srcsry OUTPUT 
000000006 EF ieee 03 Fe thy CALLS #5 ,PASSURITE. STRING 
03 DD OODA PUSHL # 
000000006 EF 9F OODAA PUSHAB PASSFV_OUTPUT 
000000006 EF 03 FB O0DBO CALLS #3,PASSWRITE_STRING 
ooo EB a Los 
F4 AD 000000006 EF 9€ 00DC0 MOVAB EDFS$AB_POSIT_TABLE_STA,-12(FP) 
F4 AD OF O0DCB PUSHAB -12(F 
FO AD 000000006 EF 9€ O0DC MOVAB EDFSAB_POSIT_TABLE_KEY,-16(FP) 
000000006 EF am Oe Ha bppa attics Fy < 
$0000900° BF gooopoese e of aoe Capt INBUT VALUE TEST#SS : 6333 
Ov 1€ OFS BGEGU ; | 
O3 FFFFS79F EF 000000236, FF i oor BBC i ST+35.C.AVK..¢ 3 
000000006 EF 9F a 119$:  PUSHAB CRLF _SHIFT : 6539 
DD OOEOA PUSHL 
000000006 ai 9F O0E0 PUSHAB PASSFY OUTPUT 
000000006 EF scaciaeal t Fe e] CALLS we STRING 
D OOE1F PUSHL 
000000006 EF er £21 PUSHAB 
000000006 FF FB O0E27 CALLS els STRING 
06 1 000000236 EF CF OOE CASEL T+ > 6541 
gy eB she 
Ov E3A “DISPL 1218 


16 
DFA ip: Sep- VAX-11 Pascal V P 
Se 800 Generated Code =Sep- 138 99: 38: % DISKSVMSMASTER: esheets SRCIJEDFASK.PAS;1 é = 
E3C <DISPL 122$ 
gv eR DISPL 1388 
0b £4 <DISPL 14 
y E4 “DISPL 1408 
31 £4 BRW 134$ 
FFFFS78B sia F O0E47 120$: PUSHAB C.AVZ : 6547 
DD O0E4D PUSHL #8 
000000006 FF OF OOEGF PUSHAB PASSFV_OUTPUT 
wate: Wx 000000006 FF oF eS¢ siehae Rath REVERSE saat 
4 0D 0066 PUSHL 
000000006 FF P £64 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OOE6A CALLS a3, PASSWRITE_STRING 
rrvsres Gh Tiger) uae 
000000006 ai BP 0E79 PUSHAB PASSFV_O 
000000006 EF 3 §B OOE7F CALLS #3 PASSURITE, _STRING 
000000006 EF oF QOEBG PUSHAB ANSI_RESET 
000000006 EF OF nats PUSHAB PASS$FV_OUTPUT 
000000006 _ EF 3 FB 00E94 CALLS #3,PASSWRITE_STRING 
FESS EE bb OOEAT UsHAS 6 Aue 
000000006 EF 9F BOEAS PUSHAB PASSFV OUTPUT 
000000006 EF 3 Fe OOEA9 CALLS #3,PASSWRITE_STRING 
oonnogs He Re SA ro 
000000276 EF 9F O0EB9 PUSHAB TEST+39 
000000006 EF oobdy FB OEBr CALLS #8 MURBER_IN INPUT 
000000006 EF 04 O0EC9 1218: CLRL  EDFS$GL_FID1 : 6556) 
000000006 EF D4 OOECF CLRL EDF $GL—F 1D¢ ; 6557 | 
000000006 EF D4 OOEDS CLRL  —- EDF SGL=FID : 6558. 
FFFF5707 FF F OED BUSHAB ¢ AWC : 6560 
000000006 EF 9F SOcES PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OOEE9 CALLS 4&3 PASSURITE _STRING 
000000006 f 3 OEFO PUSHAB ANSI REV RSE~ 
000000006 EF 9F SEES PUSHAB PASS$FV_OUTPUT 
000000006 EF esi 3 FB OEFE CALLS #3 PASSURITE, STRING 
3 Dd OOFOB # 
000000006 EF oF FS PASSFV 
000000006 paeaaaiies i FB 4 #3 FASSURLTE. STRING 
4 DD OOF #4 
000000006 ai OF OOF ; PUSHAB PASSFV_OUTPUT 
000000006 3 FB OOF #3,PASSWRITE_STRING 
: FFFFS6BF FF F i F USHA C AWE 
000000006 EF er F ; PUSHAB PASSFV_OUT 
000000006 EF vedi : FB f p CALLS) #3 PASSURITE. STRING ts 
F 9F OOFSA PUSHAB : 
Fe AD saat EF or rap MOV EDESAR FID_TABLE_STA,-12(FP) 
F4 AD OF OOFS PUSHAB 


16 
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OL 000 Generated Code ~3007 138% 99:36:93 NP ERSUNGRAS TER EEDF-GRCIEDFASK.PAS:1 (54) 
FO AD 000000096 EF 9 F5 VAB_ EDFSAB_FID_TABLE_KEY,-16(F #2 
goosagas er Te ere Sree EMM? ilSbande uot 
titty 4G EF 000 999 G6 EF OD eh MOVL  EDFSGL_FID1,TEST+52 : 6568 
999009 8G EF 00 00 G EF 00 00F75 MOVL EDESGL_FIDe. TEST #36 + 6569 
000003CG EF 0000000 Coobby i sae MOVL EDF $GL_F ID *TEST+60 + 6570 
FFFFS664 EF  9F rBE 122$: PUSHAB C.AWF : 6578 
12 pp 0F94 PUSHL #18 
000000006 FF F OF 96 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 §B OOF9 CALLS #3,PASSWRITE_STRING 
000000006 FE i OFA BUSHAB CRLF _SHIFT 
000000006 FF 9F OOFAB PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB FB CALLS #3,PASSWRITE_STRING 
ere So are PUSH’ #3 ne 
000000006 EF 9F Orb PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB OOFC6 CALLS #3,PASSWRITE STRING 
00v00000000G6_ ‘EF 0 £0 OFCD BBS #48, PASSFV_INPUT, 123$ : 6580. 
000000006 EF  9F OOFDS PUSHAB PAS$FV_INPOT | 
000000006 EF gi FB OOFDB CALLS #1,PASS$LOOK_AHEAD 
00v00000000G_ ‘EF 1 E OFE2 123$:  6BS #45, PASSFV_INPUT,125$ 
000000006 FF F OOFEA PUSHAB PAS$FV_INPOT : 6584) 
000000006 EF 1 FB OOFFO CALLS #1,PASSRESET2 
eS tre 6 But hms 
00 oD OOFFB PUSHL 
00838048 8F DD OOFFD PUSHL #11763787 | 
000000006 EF 04 FB 01003 CALLS #4,LIBSSIGNAL 
QOOOOOFF 8F DD 0100A 125$: PUSHL #25 : 6589. 
G EF OF | PUSHAB PASSFV_INPU 
1000 ED oF biote PUSHAB Love ’ | 
000000006 EF §§ FB B1OTK CALLS #3,PAS$READ_STRING 
000000006 cf 9F 01021 PUSHAB PA 
000000006 EF 1 FB 01027 CALLS #1,PASSREADLN2 
000000006 Ff F 10 ; PUSHAB CRLF : 6590 
000000006 ai OF 01036 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 105¢ CALLS #3,PASSWRITE STRING 
000000006 cf 9F 0104 PUSHAB PASSFV_OUTPUT 
000000006 EF 1 FB 01049 CALLS #1,PASSWRITELN2 
00000011G_ EF 900000006 cr 7D 01050 MOva Nut STRING, TEST+17 ; 6592 
FO AD O10EOOFF &F pO 1058 MOVL #1769497 ~{GCFP) : 6593. 
Morey SS Ses BOM fen 
000000116 a OF 106 PUSHAB TEST+N? 
000000006 EF 2 FB 01 CALLS #2,STRSTRIM 
SSGGG0T9E fr $e Bi8er | RURMB. feeyeyBeS¢ be, 
0000006 EF bo FB 1 85 CALLS #2,LIBS$SCOPY_DXDx 
14G EF 00046 EF p 1 ¢ MOVL — INPUT_DESC+47PARAM_BLOCK+20 : 6595 
106 EF 00006 FF ¢ 1 MOVZ2WL INPUT~DESC, PARAM BCOCKs16 > 6596 
00v 00G EF 0 &1 010A2 BBC #0 YOORNAL ENABLED 1 1$ ; 6602 | 
000000116 a ie AA Isty I I+ 7 > 6604 | 
7E 00000011G EF  3C 01 $ MOVZWL TEST+17,-(SP) > 6606 


K 16 
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4-000 Generated Code =3007 138% 99:38:93 DI EKSUNGRASTER FEOF GRCIEDFASK.PAS; 1 (83) 


00 DD 01089 PUSHL 40 
50 00000015G EF 08 108 MOVL TEST+21,R0 
0 9F 010¢ PUSHAB (RO) 
200000FF F pd 010¢ PUSHL #255 
00006 FE F O10CA PUSHAB JOURNAL FILE 
000000006 EF 5 FB 010D CALLS #5,PASSQRITE_STRING 
000000006 EF 9F 010D PUSHAB JOURNAL FILE 
000000006 EF 1 re 1000 CALLS #1,PASSQRITELN2 
Ov 11 01064 BRB 136$ 
000000006 FF 9F 010E6 129$: PUSHAB JOURNAL FILE 1 6614 
000000006 EF 1 €B i con CALLS #1,PAS$SQRITELN2 | 
006D  8F 000000116 FF B1 010F3 131$:  CMPW TEST+17,#109 : 6616 
Ov 1B 1oF¢ BLEQU 136$ 
00 DD O10FE PUSHL # : 6618) 
00 0D 01100 PUSHL # 
00 DD 01102 PUSHL 
| 00838030 8F DD 01104 PUSHL #11763760 
000000006 EF 04 FB O110A CALLS #4 L IBSSIGNAL 
OOv 11 01111 BRB 136 
1113 134$: 
111 1368: 
83 8F OOOOOOIEG EF 91 01113 137$:  CMPB TEST+30,#-125 : 6632. 
OOv 13 01118 BEQL 139 
59 8F OOOOOOIEG EF 91 0111D CMPB Ss TEST +30,#89 
03 13011 3 BEQL =. +3 
0000v 31 011 BRW 166$ 
FFFFS4DC EF 9F 0112A 139$: PUSHAB C.AWH : 6640 
0B DD 01130 PUSHL #11 
000000006 EF 9F 01132 PUSHAB PASS$FV_OUTPUT 
000000006 EF 03 =FB 113 CALLS #3,PASSWRITE_STRING 
000000006 EF OF 01136 PUSHAB ANSI_REVERSE 
4 0D 01145 PUSHL # 
000000006 FF OF 01147 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB 01140 CALLS #3,PASSWRITE_STRING 
FFFFS4BE ai 9F 01154 PUSHAB C.AWI 
3 DD O115A PUSHL @# 
000000006 ai 9F 0115 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 0116 CALLS #3,PASSWRITE_STRING 
000000006 FF OF 0116 PUSHAB ANSI_RESET 
4 dD 1i6F PUSHL 
000000006 FF 9F 01171 PUSHAB PAS$FV_OUTPUT 
000000006 _ EF 3 FB 01177 CALLS #3,PASSWRITE_STRING 
FFFF5498 Ff oF 1176 PUSHAB C.AWJ 
3 pd 011 PUSHL 
000000006 EF 9F 011 PUSHAB PASS$FV_OUTPUT 
90000006 EF : FB 118¢ CALLS #3,PASSWRITE STRING 
00v00000000G_ ‘EF E 1 BBS #48 PASSFV_IRPUT,140$ 5 6643 | 
000000006 EF 9F 1198 PUSHAB PASS$FV_INPOT | 
990000006 EF 1 FB 1A CALLS #1 PASSL OOK AHEAD 
00v OG EF 1 ’ 1148 1408:  &8BS #45, PASSFV_ INPUT, 142$ | 
000000006 EF 9F 011B PUSHAB PAS$FV_INPOT > 6647 
000000006 EF 1 FB 011B6 CALLS #1,PASSRESET2 
DD 011BD PUSHL # > 6648 
DD 011BF PUSHL @# 
DD 11¢] PUSHL # 
00838048 8F DD 011C PUSHL #11763787 
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Bc 19:38:90 DISKSUNGMASTER:EEDF-SRcJEDFASK.PAS;1° C84) 


AG ,18SS16nAL 

ae FV_INPUT 

3) (RT2) 

#5 ,PASSREAD_STRING 


PASSFV_INPUT 
#1, PASSREADLN2 
CRLF 


he 
PASSFV_OUTPUT 
#3,PASSWRITE STRING 
PASSFV_OUTPUT 
#1 -PASSURITELN2 


T 
9 
1 
) 
2 
$ 
D 
2 
$ 
D 
D 


I 
C 
OPY_DXDX 
UT_DESC+4>PARAM_BLOCK+20 
INPUT” DESC, PARAM BLOCK+16 
NAL ENABLED, 148$ 
=LO(R12) .=(SP) 

@-12(R12) 

r 


-16(R12) 
#1,STRSFREE1_DX 
#0 


t 
# 
#11763776 
a4 i $SIGNAL 
-16(R12) 
#2,0TS$SCVT_TI_L 

AT 
I fatus, 2$ 

) TEST+39 
2(R12)  APOSTROPHE 
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; Routine Size: 5007 bytes, Routine 


v04- Generated Code 


EF 02 A 
00 

ef FO at 
00 

0 

00838030 F 

EF 7) 
50 F4 At 

cr 01. =A 
F OOOOOOIEG EF 
20 000000276 4 
07 00 
00v 

23 000000276 Ff 
Ov 

24 00000027G_ EF 
07 00 
00v 

FO AC 

EF 01 
00 

00 

00 

00838038 8F 

EF 04 
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CMPB 


BEQL 
PUSHAB 


HOt OSES WGDAGaNSte 


DISKSVMSMASTER: 


¢ £09) -APOSTROPHE 


° Nat 
#1,STRSFREE1_DXx 


+39,#36 
o#°X40, TEST+39 


RWwel HB eH HH Fe HH Wm9 HH —— J HW BRBBHR 
= DAOAMAMAOKMOM NS $$ OOo ——_ 


2) 
RSFREE1_DX 


#11763768 
#4,LIBSSIGNAL 


TEMP_FULL_PROMPT 


4-277 : 
fibr cacaeprAsK.pas: 1° 280) 
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; 6702 


6703 


6709 
6711. 
6718. 


6732. 
6733. 


6744. 
6746 | 
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V04=000 Pascal Compilation Statistics 736071 382 9: 38: 3 PE RSUMSMASTER  TEDFSRCJEDFASK. PAS; 1 (54) 
_ COMMAND QUALIFIERS 
| PASCAL/MACHINE/NODEBUG/NOCHECK/LIS=LIS$:EDFASK/OBJ=OBJ$:EDFASK MSRC$:EDFASK 
/CHECK=(NOBOUNDS ,NOCASE SELECTORS. NOOVERF LOW, NOPOINTERS ,NOSUBRANGE ) 
Niulhomate t Per iy 28: teD 
/L1st= e5s500A DUA2 Cer JOBJJEDEASK. PEN;1 
/LIS osse: 31 


| 
| 
} 
EDEL 

| $255$DuU 6: t0r TOEDPAgK OBJ; 

| popthsas “REFERENCE JERROR oP TMI Te 30 NOG. LATING /MACHINE_CODE /NOOLD.VERSION /OPTIMIZE /NOSTANDARD /WARNINGS 
| 


eee 


COMPILER INTERNAL TIMING 


Phase Faults 
Initialization 


oe ond 
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Cr OM — NYMVIO Or 
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© 7 ee 
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Source Analysis 1199 
Source nm 

Tree Construction 
Flow Analysis 111 
Profit Analysis 62 
Context Analysis 11 
Name Packing 

Code Selection 8 
Final 8 
TOTAL 55 
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COMPILATION STATISTICS 


CPU Time: 02:26.5 (2774 Lines/Minute) 
Elapsed Time: 09:18.5 

Page Faults: 5531 

Compilation Complete 
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NT CORPORATION 


D PROPRIETARY 
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